|
こんにちは
Yukiさんに以下にコードを教えてもらいました。
>任意位置の行のB列の最終列を検索し
>任意位置のA列から最終列Gまでを
>Sheets("見本").Range("A2")に貼り付ける
Sub TESTb()
With ActiveSheet
.Range("A" & Selection.Row & ":G" & _
.Range("B" & .Rows.Count).End(xlUp).Row).Copy _
Worksheets("Sheet1").Range("A2")
End With
End Sub
もう1つ質問したいのですが、同じ条件で貼り付け先がActiveSheetで
任意位置のA列から100行下のAに貼り付けようと
以下のようにして見たのですが
With ActiveCell以外すべて赤文字になります。
ご指導のほどよろしくお願いします。
With ActiveCell
.Range("A" & Selection.Row & ":G" & _
.Range("B" & .Rows.Count).End(xlDown).Row).Copy _
.EntireRow.Cells(100, 1)
End With
|
|