最佳答案

VBA代碼如下：

Private Sub Worksheet_Change(ByVal Target As Range)

Dim i%, n&

i = 1: n = 0

On Error GoTo 100

Do

If Sheet2.Range("A" & i) = Target Then n = i: Exit Do

i = i + 4

Loop Until Sheet2.Range("A" & i) = ""

If n = 0 Then Exit Sub

Sheet2.Range("B" & n & ":E" & n + 3).Copy

Cells(Target.Row, Target.Column + 1).Select

ActiveSheet.Paste

Sheet2.Range("A" & n & ":A" & n + 3).Copy

Range(Target.Address).Select

Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _

SkipBlanks:=False, Transpose:=False

Application.CutCopyMode = False

100 End Sub

最佳答案由網(wǎng)友????提供

總結(jié)

以上是生活随笔為你收集整理的vba调用计算机,如何实现跨工作表自动引用数据? 求：EXCEL公式（函数）或VBA宏程序...的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。