处理空白

• 如果数据在Excel表中，则应使用它们的方法和属性。
• 如果你不想，你就需要编写特殊的，通常是复杂的代码。
• End(xlUp)只会向上到表格的最后一行（单元格），如果底部有空行或空白行，也会被复制。
• 使用xlFormulas的Find方法将转到最后一个非空行，而使用xlValues的Find方法将（进一步）转到最后一个非空行。
• • 姓名首字母**

第一节第一节第一节第一节第一次

• • 结果**

• • 主要**

Sub InvCopyPaste()
    
    Dim wb As Workbook: Set wb = ThisWorkbook ' workbook containing this code
    
    Dim wsTC As Worksheet: Set wsTC = wb.Sheets("TC Data Dump")
    Dim wsInv As Worksheet: Set wsInv = wb.Sheets("Inventory for Charts")
    
    Dim srg As Range, drg As Range
    
    ' Source: 'wsTC' to Destination: 'wsTC'
    Set srg = RefNonBlankRange(wsTC.Range("O2:W2"))
    If Not srg Is Nothing Then
        Set drg = RefFirstNonBlankRowRange(wsTC.Range("A2") _
            .Resize(, srg.Columns.Count)).Resize(srg.Rows.Count)
        drg.Value = srg.Value ' for only values (most efficient)
        'srg.Copy drg ' instead: for values, formulas and formats
        Debug.Print "Copied from " & srg.Address & " to " & drg.Address & "."
    End If
    
    ' Source: 'wsTC' to Destination: 'wsInv'
    Set srg = RefNonBlankRange(wsTC.Range("K2:S2"))
    If Not srg Is Nothing Then
        Set drg = RefFirstNonBlankRowRange(wsInv.Range("A2") _
            .Resize(, srg.Columns.Count)).Resize(srg.Rows.Count)
        drg.Value = srg.Value ' for only values (most efficient)
        'srg.Copy drg ' instead: for values, formulas and formats
        Debug.Print "Copied from " & srg.Address & " to " & drg.Address & "."
    End If
    
End Sub

• • 帮助**

Function RefNonBlankRange( _
    ByVal FirstRowRange As Range) _
As Range
    With FirstRowRange
        Dim cel As Range: Set cel = .Resize(.Worksheet.Rows.Count - .Row + 1) _
            .Find("*", , xlValues, , xlByRows, xlPrevious)
        If Not cel Is Nothing _
                Then Set RefNonBlankRange = .Resize(cel.Row - .Row + 1)
    End With
End Function

Function RefFirstNonBlankRowRange( _
    ByVal FirstRowRange As Range) _
As Range
    Dim rg As Range: Set rg = FirstRowRange.Rows(1)
    With rg
        Dim cel As Range: Set cel = .Resize(.Worksheet.Rows.Count - .Row + 1) _
            .Find("*", , xlValues, , xlByRows, xlPrevious)
        If Not cel Is Nothing Then Set rg = .Offset(cel.Row - .Row + 1)
    End With
    Set RefFirstNonBlankRowRange = rg
End Function

• • Debug.Print * 即时窗口中的结果 （Ctrl+G）*

Copied from $O$2:$W$6 to $A$4:$I$8.
Copied from $K$2:$S$6 to $A$6:$I$10.

首先，行计数是计算第一列的行数。-lr 2 = TC.Cells（Rows.Count，1）.End（xlUp）.Row Here。而不是计算你要复制的表格中的行数。如果你把这一行中的数字1改为你要复制的列，我想它是“O”，也就是15。
那么恐怕您必须为第二个表重新定义lr 2或为其创建另一个变量。lr 3 = TC.Cells（Rows.Count，11）.End（xlUp）.Row '11表示第k列
如果有帮助请告诉我。

Sub oddzac()

Dim RowCount As Integer

ActiveSheet.Range("O2", Cells(Range("W" & Rows.Count).End(xlUp).Row, "W")).Copy Cells(Range("A" & Rows.Count).End(xlUp).Row, 1)
ActiveSheet.Range("K2", Cells(Range("S" & Rows.Count).End(xlUp).Row, "S")).Copy Cells(Range("A" & Rows.Count).End(xlUp).Row + 1, 1)

End Sub

这就是你要找的吗

另一个论坛回应了这个解决方案：

Sub TC_Copy_Paste()
Dim TC As Worksheet, RowNum As Long
'
Set TC = Worksheets("TC Data Dump")

On Error Resume Next

With TC.Range("P3").ListObject
    RowNum = Application.WorksheetFunction.CountA(.ListColumns(1).DataBodyRange)
    .DataBodyRange.Cells(1, 1).Resize(RowNum, 9).Copy Destination:=TC.Cells(Rows.Count, 5).End(xlUp).Offset(1)
End With

With TC.Range("AJ3").ListObject
    RowNum = Application.WorksheetFunction.CountA(.ListColumns(1).DataBodyRange)
    .DataBodyRange.Cells(1, 1).Resize(RowNum, 9).Copy Destination:=TC.Cells(Rows.Count, 26).End(xlUp).Offset(1)
End With
End Sub

同样，我不知道为什么这个工作和其他不，但我想分享最终的结果。