excelvba如何将选中的不连续单元格赋值到数组（excel vba提取指定条件的一行数据）

Option Base 1Sub test() Dim Arr() As Variant Dim i As Long For Each cl In Selection i = i + 1 ReDim Preserve Arr(i) Arr(i) = cl Next cl‘在这里你就可以使用ARR数组了End Sub