Question

求一段EXCEL的VBA引用代码

满足以下要求
1、使Sheet2中的A4、A5、A6、A7、A8……分别对应Sheet1中的A2、A6、A10、A14、A18……
2、使Sheet2中的C4、C5、C6、C7、C8……分别对应Sheet1中的H2、H6、H10、H14、H18……
3、使Sheet2中的E4、E5、E6、E7、E8……分别对应Sheet1中的H4、H8、H12、H16、H20……
4、并且打开EXCEL的时候 不能跳出任何对话框（比如更新、安全性之类的）
在线等

Answer 1

首先，使用了VBA后必然会有安全性的提示，无法避免。除非你取消宏的安全性。
Sub S2S1()
For i = 1 To 10
Sheet2.Range("A" & i + 3) = "=Sheet1!A" & i * 4 - 2
Sheet2.Range("C" & i + 3) = "=Sheet1!H" & i * 4 - 2
Sheet2.Range("E" & i + 3) = "=Sheet1!H" & i * 4 - 0 '这里的0不是多余而是为了让结构清晰同意
Next i
End Sub

Answer 2

你通过使用 以下语法就可以了。
如 sheet2中A4对应SHEET1中的A2
那么就在sheet2中的A4位置输入 =sheet1!A2 就可以。
其他依此类推

追问

函数的我已经做好了的，就是想用VBA解决

追答

呵呵，不好意思。VBA我也在学，没到这个折腾的地步。
呵呵。期待，关注

Answer 3

Private Sub btn_new_Click()
cRows = (Worksheets("灰分挥发份").Range("c65536").End(xlUp).Row - 1) / 2
Application.ScreenUpdating = False

With Worksheets("灰分挥发份")

For i = 1 To cRows
Range("A" & i + 3) = .Range("A" & i * 4 - 2)
Range("C" & i + 3) = .Range("H" & i * 4 - 2)
Range("E" & i + 3) = .Range("H" & i * 4)
Next i

End With
Application.ScreenUpdating = True
End Sub

Answer 4

打开EXCEL的时候 不能跳出任何对话框,那就不要用宏做