写一个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编辑器中，并在运行之前先将工作表名称和单元格范围更改为你自己的数据。祝你好运！