EXCEL VBA提取内容到另表

用VBA将A列A4以下所有显示内容提取到另一表B3开始用复制不行,因为复制的同时也将单元格式复制了Sub复制()DimiAsLong,jAsLongj=3WithShee... 用VBA将A列A4以下所有显示内容提取到另一表B3开始
用复制不行,因为复制的同时也将单元格式复制了
Sub 复制()
Dim i As Long, j As Long
j = 3
With Sheets("表1")
For i = .Cells.SpecialCells(xlCellTypeLastCell).Row To 4 Step -1
If .Cells(i, 3) <> "" Then
j = j + 1
Sheets("表2").Cells(j, 1) = .Cells(i, 1)
Sheets("表2").Cells(j, 2) = .Cells(i, 3)
End If
Next i
End With
End Sub
如果用这个可不可以修改成你哪样的效果展开

 我来答

1个回答

#热议# 不吃早饭真的会得胆结石吗？

平阳虎01

高粉答主

推荐于2016-12-02 · 每个回答都超有意思的

知道大有可为答主

回答量：3.7万

采纳率：75%

帮助的人：4898万

我也去答题访问个人页

关注

展开全部

Sub 复制()
For k = 4 To Sheet1.[a65536].End(3).Row
    Sheet2.Cells(k - 1, 2) = Cells(k, 1)
Next
End Sub

追问

可不可以用我上面补充的修改出同样的效果
因为我是复制同表多列到另一表

追答

Sub 复制()
For k = 4 To Sheets("表1").[a65536].End(3).Row
    Sheets("表2").Cells(k - 1, 1) = Sheets("表1").Cells(k, 1)
    Sheets("表2").Cells(k - 1, 2) = Sheets("表1").Cells(k, 3)
Next
End Sub