VBA 复制表格数据：将第一个表格的 A 列复制到第二个表格的 B 列并替换空白

用 VBA 将第一个表格的 A 列复制到第二个表格的 B 列并替换为空白

本文将介绍如何使用 VBA 将第一个表格的 A 列数据复制到第二个表格的 B 列，并用 '空白' 替换空白单元格。

下面是实现此功能的 VBA 代码：

Sub copyColumn()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim lastRow As Long, i As Long
    
    ' 获取第一个表格和第二个表格
    Set ws1 = ThisWorkbook.Worksheets('Sheet1')
    Set ws2 = ThisWorkbook.Worksheets('Sheet2')
    
    ' 找到第一个表格的最后一行
    lastRow = ws1.Cells(ws1.Rows.Count, "A").End(xlUp).Row
    
    ' 循环复制 A 列到 B 列并替换为空白
    For i = 1 To lastRow
        ws2.Cells(i, "B").Value = ws1.Cells(i, "A").Value
        If ws2.Cells(i, "B").Value = "" Then
            ws2.Cells(i, "B").Value = "空白"
        End If
    Next i
End Sub

注意：

• 这段代码假设第一个表格的名称为 'Sheet1'，第二个表格的名称为 'Sheet2'。如果你的表格名称不同，请将代码中的名称相应修改。
• 另外，本代码假设第二个表格的 B 列与第一个表格的 A 列行数相同。如果行数不同，需要相应修改循环的范围。

通过以上代码，你可以轻松实现将第一个表格的 A 列数据复制到第二个表格的 B 列，并用 '空白' 替换空白单元格。这可以帮助你更方便地处理数据，提高工作效率。