|
▼ひげくま さん:
ありがとうございます。
アドレスはポイントするためんではないのですね。
こういうときはOffsetを使えばよいのですね。
そういうのがパッと浮かびません。
で、アドバイス通りにやりましたが、また黄色になります。
どこが悪いでしょうか。
Dim MyTxtFile1 As String
Dim MyTxtFile2 As String
MyTxtFile1 = ActiveWorkbook.Path & "\Post.csv"
Workbooks.Open Filename:=MyTxtFile1
Range("A2:U2").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
MyTxtFile2 = ActiveWorkbook.Path & "\Fax.csv"
Workbooks.Open Filename:=MyTxtFile2
Windows("Fax.CSV").Activate
Range("A2").Select
Range("A2").End(xlDown).Offset(1).Select '←ここが黄色になります
ActiveSheet.Paste
End Sub
|
|