Изменить начальный диапазон и диапазон назначения

Question

Я новичок в Excel vba, и я пытаюсь изменить макрос из Siddharth Rout (спасибо) '.

Мне нужно указать диапазон для начала в ячейке, например B13, и скопировать на другой рабочий лист на C14. Как это можно управлять?

Заранее спасибо.

Option Explicit 

Sub Sample() 
Dim lastRow As Long, i As Long 
Dim CopyRange As Range 

'~~> Change Sheet1 to relevant sheet name 
With Sheets("Sheet1") 
    lastRow = .Range("A" & .Rows.Count).End(xlUp).Row 

    For i = 2 To lastRow 
     If Len(Trim(.Range("A" & i).Value)) <> 0 Then 
      If CopyRange Is Nothing Then 
       Set CopyRange = .Rows(i) 
      Else 
       Set CopyRange = Union(CopyRange, .Rows(i)) 
      End If 
     End If 
    Next 

    If Not CopyRange Is Nothing Then 
     '~~> Change Sheet2 to relevant sheet name 
     CopyRange.Copy 
     Sheets("Sheet2").Rows(1).PasteSpecial xlValues 
    End If 
End With 
End Sub 

Answer 1

Поскольку CopyRange является полный ряд широкий вам нужно обрезать ее вниз, прежде чем вставить в Range("B13"). В качестве дополнительного требования OP хочет исключить столбец A из исходного диапазона.

Sub Sample() 
    Dim lastRow As Long, i As Long 
    Dim CopyRange As Range 

    '~~> Change Sheet1 to relevant sheet name 
    With Sheets("Sheet1") 
     lastRow = .Range("A" & .Rows.Count).End(xlUp).Row 

     For i = 2 To lastRow 
      If Len(Trim(.Range("A" & i).Value)) <> 0 Then 
       If CopyRange Is Nothing Then 
        Set CopyRange = .Rows(i) 
       Else 
        Set CopyRange = Union(CopyRange, .Rows(i)) 
       End If 
      End If 
     Next 

     If Not CopyRange Is Nothing Then 
      '~~> Change Sheet2 to relevant sheet name 
      Intersect(Sheets("Sheet1").UsedRange, CopyRange).Offset(0, 1).Copy 
      Sheets("Sheet2").Range("B13").PasteSpecial xlValues 
     End If 
    End With 
End Sub