Ta上传的资源 (0)

Private Sub Worksheet_Activate() Dim d, arr, brr(), s$, i, j, m Set d = CreateObject("Scripting.Dictionary") arr = Sheet2.[A1].CurrentRegion ReDim brr