上限改为Z13单元格,
下限改为Z14单元格,
'应用过程发现要筛选20列,
'brr(j, 1) = arr(i, 1):这段代码要复制20次来修改,
根据范围进行筛选.zip
(58.3 KB, 下载次数: 6)
- Sub 筛选范围()
- Dim i, j, r, m, n, arr, brr()
- With Worksheets("sheet1")
-
- m = .Cells(13, 26) '上限的单元格
- n = .Cells(14, 26) '下限的单元格
- r = .Cells(.Rows.Count, 1).End(xlUp).Row
- arr = .Range("A2:T" & r) '"A2:E"表示要多少列
- ReDim brr(1 To r - 1, 1 To 20) '1 To 5)表示1到5列
- For i = 1 To UBound(arr)
- If arr(i, 2) >= n And arr(i, 2) <= m Then '表示筛选第几列
- j = j + 1
-
- '应用过程发现要筛选20列,
- 'brr(j, 1) = arr(i, 1):这段代码要复制20次来修改,
- brr(j, 1) = arr(i, 1): brr(j, 2) = arr(i, 2): brr(j, 3) = arr(i, 3): brr(j, 4) = arr(i, 4): brr(j, 5) = arr(i, 5): brr(j, 6) = arr(i, 6): brr(j, 7) = arr(i, 7): brr(j, 8) = arr(i, 8): brr(j, 9) = arr(i, 9): brr(j, 10) = arr(i, 10): brr(j, 11) = arr(i, 11): brr(j, 12) = arr(i, 12): brr(j, 13) = arr(i, 13): brr(j, 14) = arr(i, 14): brr(j, 15) = arr(i, 15): brr(j, 16) = arr(i, 16): brr(j, 17) = arr(i, 17): brr(j, 18) = arr(i, 18): brr(j, 19) = arr(i, 19): brr(j, 20) = arr(i, 20):
-
-
- End If
- Next
- .Range("A2:T" & r).ClearContents '"A2:E"表示清空范围
- .[A2].Resize(UBound(brr), 20) = brr '(UBound(brr), 5) 中的5,表示多少列
- End With
- End Sub
复制代码
|