|
たびたびすいません・・・
現状は一覧表のC(依頼者)〜BMまでを職場事に転記してるんですが、
B(依頼職場)〜BMまでを転記したいのですが
End With
'データをA列で整列
DataSort .Offset(1).Resize(lngRows, clngColumns + 1), .Offset(, clngGroup)
'A列データを配列に取得
vntGroup = .Offset(1, clngGroup).Resize(lngRows + 1).Value
End With
'仮に結果と元表を同じにして置く
Set rngResult = rngList
'注目値の位置を記録
lngTop = 1
'データ行数のカウント初期値
lngCount = 1
For i = 2 To lngRows + 1
'注目値と現在値が違った場合
If vntGroup(lngTop, 1) <> vntGroup(i, 1) Then
'シート名の存在確認をして、無い場合追加し在る場合はデータ消去
GetSheets "依頼職場_" & vntGroup(lngTop, 1), cstrTop, rngResult
With rngList
'列見出しを転記
' .Offset(, 2).Resize(, clngColumns).Copy Destination:=rngResult
'データを転記
.Offset(lngTop, 2).Resize(lngCount, clngColumns).Copy _
Destination:=rngResult.Offset(1)
End With
'注目値の位置を記録
lngTop = i
'データ行数のカウント初期値に
lngCount = 1
Else
'データ行数のカウントを更新
lngCount = lngCount + 1
End If
Next i
With rngList
'元データを復帰
DataSort .Offset(1).Resize(lngRows, clngColumns + 1), .Offset(1, clngColumns)
'復帰用Key列を削除
.Offset(, clngColumns).EntireColumn.Delete
End With
のどこを変更したらB(依頼職場)からBM列まで表示されるのでしょうか?
ほんと全然分かってなくて申し訳ありませんがよろしくお願いします。
|
|