数组返还到多工作表问题

周某人就是我

看了佛山小老虎老师的帖子，有以下代码:
“For x = 2 To Sheets.Count '循环工作表,从第二个表开始
        arr1 = Sheets(x).UsedRange '把工作表区域装到数组arr1里
        For y = 2 To UBound(arr1, 1) '循环数组arr1的行”

把x个工作表依次装入数组arr1，arr1会是什么样子？是个包含了x个二维数组的一维数组？如果我修改了arr1的某个元素值，怎么返还给工作表？在循环完了第x个工作表后就返还？还是等循环完了全部x个工作表一次性返还(能实现吗)？

shiruiqiang

怎么说吧，分别把工作表的数据覆盖掉原有，以最后一张表的值为准

周某人就是我

shiruiqiang 发表于 2024-1-21 08:41
怎么说吧，分别把工作表的数据覆盖掉原有，以最后一张表的值为准

感谢老师解惑。

ykcbf1100

数组arr1如果有修改的话，要把arr1数组重新写回工作表中，Sheets(x).UsedRange=arr1

周某人就是我

ykcbf1100 发表于 2024-1-21 11:47
数组arr1如果有修改的话，要把arr1数组重新写回工作表中，Sheets(x).UsedRange=arr1

感谢老师解惑。

A刘志勇

若想把所有的工作表的内容装到 一个数组里，需要用redim preserve arr1,重新定义数组大小，这样也可以，你试试！

shiruiqiang

一般情况下，需要1条1条写入新的数组。n=n+1

周某人就是我

A刘志勇 发表于 2024-1-21 17:41
若想把所有的工作表的内容装到 一个数组里，需要用redim preserve arr1,重新定义数组大小，这样也可以，你 ...

感谢老师，我不是要把所有工作表都装入一个数组，只是要确认那种是什么。

周某人就是我

下面是在手机写的代码，还没经过验证。代码的意思: 在各个工作表里找跟活动工作表里相同的项(最近时间的)，并根据相同的项对应的项，修改工作表里内容。最近时间是从右往左开始工作表的，找到了就退出循环。

Private Sub Worksheet_Change(ByVal Target As Range)
     Dim arr, arr1, arr2
     Dim z%, x%, y%, k%, j%
   Application.ScreenUpdating = False        
   Sheets(Sheets.Count).Activate     
       arr = Range("A3:B" & _   
       Range("A3").End(xlDown).Row)
For z = 1 To UBound(arr)
  For x = Sheets.Count - 1 to 1 Step -1
       arr1 = Sheets(x).Range("C3:I" & _   
       Range("C6000").End(xlUp).Row)
     For y = 1 To UBound(arr1)
     If arr1(y, 1) = arr(z, 1) Then
            k = k + 1
    arr2(k) = arr1(y, 3)
   End If
     Next
        If k > 0 Then
            For j = 1 to UBound(arr1)
               If arr1(j, 1) = arr(z, 1) And _
                  arr1(j, 3) = Max(arr2) Then
                  arr1(j, 4) = "文本1"
                  arr1(j, 6) = "文本2"
                  Exit For
               End If
             Next
          Sheets(x).Range("C3:I" & _
          Range("C6000").End(xlUp).Row) = arr1
          Exit For
        End If
  Next
    If k = 0 Then
    arr(z, 2) = "未找到"
Next
    Range("A3:B" & _
    Range("A3").End(xlDown).Row) = arr
  Application.ScreenUpdating = True
End Sub