VBA数组:把sheet2中的数据赋值给数组arr,然后在sheet1中实现循环调用:

2020-06-17 教育 94阅读
Private Sub Worksheet_Change(ByVal Target As Range)
arr = Sheets("Sheet2").Range("A1:B20").Value
For i = 1 To Sheets("Sheet2").Cells(Rows.Count, 1).End(3).Row '当sheet2a列数据超过20行时,会引发下标越界错误
For j = 1 To 2 '同样的事情重复两次,毫无意义
If Cells(i, 1) = arr(i, 1) Then
n = n + 1
Cells(i, 2) = arr(i, 2) '当if条件为真时,执行写入操作,将触发change事件,陷入无限循环
End If
Next
Next
End Sub
声明:你问我答网所有作品(图文、音视频)均由用户自行上传分享,仅供网友学习交流。若您的权利被侵害,请联系fangmu6661024@163.com