| |
▼マナ さん:
早速のお返事ありがとうございます。
何度もすみません。もう少し質問させてください。
Set target = ThisWorkbook.Worksheets("全集計").Cells.SpecialCells(xlCellTypeLastCell).Offset(0).End(xlToLeft)
>こうではないですか?
>Set target = ThisWorkbook.Worksheets("全集計").Cells(1, Columns.Count).End(xlToLeft)
target = myFile
>これは、意味不明です。削除したほうがよいのでは
→上記2点をこのように変更しました。
>> .Worksheets("集計").Range("a1:b30").Copy Destination:=target.Offset(0, 1)
>この段階で、値のみ転記ではだめなのでしょうか?
【質問】→この行の下に下記の記述をもってくればよいという事でしょうか?
Cells.Select
Selection.Copy
Selection.pastspecial Paste:=xlpastvalues, operation:=xlNone, skipblanks_:=False, transpse:=False
Application.CutCopyMode = False
|
|