宏获取区域值 With Sheet1 arrData = .Range("A2:A" & .Range("A1").CurrentRegion.Rows.Count).Value2 End With 刘欢原创2022/7/19OfficeOffice宏小于 1 分钟