在Excel VBA中的特定单元格中打印数据

下面的代码工作正常。 不过，我需要从列中的特定行开始粘贴数据。 在这里按照代码我可以粘贴数据在'C'列，但是如果我想从'C5'开始粘贴，例如我如何改变编码？ 谢谢您的帮助。

Private Sub CommandButton1_Click() Dim sh As Worksheet Dim rData As Range, rCell As Range, rFrom As Range, rTo As Range Dim lRightCol As Long Dim ass As Integer ass = 4 With ActiveSheet lRightCol = .Range("C3").Column Set rData = .Range(.Range("A3"), .Range("D" & .Rows.Count).End(xlUp)) For Each rCell In rData Set sh = Nothing On Error Resume Next Set sh = Worksheets(rCell.Value) On Error GoTo 0 If Not sh Is Nothing Then Set rFrom = rCell.Resize(1, lRightCol) With sh Set rTo = .Range("C" & .Rows.Count).End(xlUp).Offset(1).Resize(1, lRightCol) End With rFrom.Copy rTo End If Next rCell End With End Sub 

我试图改变下面的代码，但没有工作。

  Set rTo = .Range("C5" & .Rows.Count).End(xlUp).Offset(1).Resize(1, lRightCol) 

Answer 1

正如我在评论中提到的。 您可以使用：

 Set rTo = .Range("C" & Application.Max(5,.Cells(.Rows.Count,"C").End(xlUp).Row + 1))