VBA复制表1有数据的单元格粘贴到表2，只粘贴数值，不要公式。

Question

VBA复制表1E列有数据的单元格粘贴到表21E列，只粘贴数值，不要公式。如图：多少行不确定。

Answer 1

Sub test()
Dim sht1 As Worksheet, sht2 As Worksheet
Set sht1 = ThisWorkbook.Sheets("Sheet1")
Set sht2 = ThisWorkbook.Sheets("Sheet2")
Dim R As Long, I As Long, K As Long
R = sht1.Range("E" & Rows.Count).End(xlUp).Row
For I = 1 To R
If sht1.Range("E" & I).Value > 0 Then
K = K + 1
sht2.Range("E" & K).Value = sht1.Range("E" & I).Value
End If
Next
Set sht1 = Nothing
Set sht2 = Nothing
End Sub本回答被提问者采纳

Answer 2

如上表所示，按F5定位条件，选择常量然后复制(ctrl+c)>在表2的对应列用选择性粘贴