Question

excel vba 重复复制数据的值 粘贴到另一个新建SHEET表中

如图所示,a1:e5中每个单元格的值都与G2单元格有计算,G2值变动后相应的a1:e5的值也变动。
每修改一次G5的值，复制a1:e5的值（这里如何实现复制的是单元格的值而不是公式)到Sheet2表中如下图

从Sheet1表中复制的数据到表2后数据是公式,不是单元格的值.希望复制的是单元格的值，然后
Sheet1表中的G2单元格的值每次+1在a1:e5生成的值,都会在表2中输出,最终正确图如下





Answer 1

Sub test()
Dim s, t
Dim i As Integer
Dim rs As Integer
s = Array(1, 5, 8)
t = Array(2, 6, 7)
Sheets("目标表").Select
With Sheets("原始表")
For i = 0 To UBound(s)
rs = .Cells(65536, s(i)).End(xlUp).Row - 1
Cells(65536, t(i)).End(xlUp).Offset(1, 0).Resize(rs, 1).Value = .Cells(2, s(i)).Resize(rs, 1).Value
Next
End With
End Sub