copy 有資料的A到D列有資料的單元格，用VBA如何寫？

您可以使用以下VBA代码将A列中有数据的单元格复制到D列：

Sub CopyData()
    Dim lastRow As Long
    Dim i As Long
    
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row
    
    For i = 1 To lastRow
        If Not IsEmpty(Cells(i, "A")) Then
            Cells(i, "A").Copy Destination:=Cells(i, "D")
        End If
    Next i
End Sub

这段代码会遍历A列中的每个单元格，如果该单元格不为空，则将其复制到相应的D列单元格中。您可以将此代码复制到VBA编辑器中的模块中，并运行它来实现您的需求。

相关问题

vba遍历循环，将B列的单元格数据复制到A列的单元格，然后合并两列单元格

在VBA（Visual Basic for Applications）中，你可以使用For Each循环和Range对象来遍历Excel工作表B列的数据，并将其复制到A列。接着，可以利用Union操作来合并这两列的范围。下面是一个基本的示例代码：

Sub CopyAndMergeColumns()
    Dim ws As Worksheet ' 设置活动工作表对象
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 更改为你的工作表名称
    
    Dim rngB As Range ' 定义B列范围
    Set rngB = ws.Range("B1:B" & ws.Cells(ws.Rows.Count, "B").End(xlUp).Row) ' 获取B列最后一个非空单元格的行号

    Dim rngA As Range ' 定义A列范围，初始为空
    Set rngA = Nothing

    For Each cell In rngB ' 遍历B列每个单元格
        If rngA Is Nothing Then ' 如果A列范围为空，则从当前单元格开始
            Set rngA = cell
        Else ' 否则，追加当前单元格
            Set rngA = Application.Union(rngA, cell)
        End If
        ' 将B列内容复制到A列
        cell.Copy Destination:=rngA.Cells(rngA.Cells.Count)
    Next cell

    ' 最后合并A、B两列
    ws.Range("A:A").ClearContents ' 清除A列原有的内容
    rngA.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove ' 合并两个区域并插入到右侧
End Sub

写一个VBA代码，将E列单元格内容不为空的所有行的A列B列及E列分别复制粘贴到表2的A列B列及C列

好的，下面是VBA代码，可以实现你的需求：

Sub CopyData()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim lastRow As Long, i As Long, j As Long, k As Long
    
    '设置工作表
    Set ws1 = ThisWorkbook.Sheets("Sheet1") '表1
    Set ws2 = ThisWorkbook.Sheets("Sheet2") '表2
    
    '获取表1最后一行
    lastRow = ws1.Cells(ws1.Rows.Count, "A").End(xlUp).Row
    
    '循环遍历表1的E列
    For i = 1 To lastRow
        If Not IsEmpty(ws1.Range("E" & i)) Then '如果E列不为空
            '复制A列、B列和E列的值到表2
            j = ws2.Cells(ws2.Rows.Count, "A").End(xlUp).Row + 1 '获取表2下一行
            ws1.Range("A" & i & ":B" & i).Copy ws2.Range("A" & j)
            ws1.Range("E" & i).Copy ws2.Range("C" & j)
        End If
    Next i
End Sub

请将这段代码复制到你的VBA编辑器中，并在运行之前先将工作表名称和单元格范围更改为你自己的数据。祝你好运！