2 つのタブがあるシートがあります。
タブ1では、列J、Kに連続したデータブロックがあり、行数は異なりますが、常にJ1、K1から始まります。
タブ2には、A1から始まる列Aのみにデータがあります。
タブ 1 のデータ ブロック全体を動的に選択できるようにするコードを探していますが、行数が多くてもかまいません。
次に、そのブロックを、タブ 2 の列 A の最初の空のセルから貼り付けます。
これはこれまでの私の試みです:
Sub put_there2()
Dim r1 As Range
Dim r2 As Range
Dim r3 As Range
Dim LastRowNumber As Long
Dim LastCell As Range
Dim WS As Worksheet
Set r1 = Range("A2:A100") 'Paste Location
Set WS = Worksheets("Sheet1")
With WS ' sheet in which to measure range of data to be pasted
Set LastCell = .Cells(.Rows.Count, 10).End(xlUp)
LastRowNumber = LastCell.Row
End With
Set r2 = Range(Cells(2, 10), Cells(LastRowNumber, 11)) 'region to be copied
For Each r3 In r1
If r3.Value = "" Then
r2.Copy r3
Exit Sub
End If
Next
End Sub
あなたの考えは高く評価され、
よろしくお願いします