|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
- Sub ceshi()
- KRR = Array(1, 2, 3, 4, 6, 8, 9, 11, 14, 18, 19)
- LRR = Array(13, 3, 4, 2, 12, 5, 11, 8, 18, 4, 16)
- MRR = Array(4, 6, 9, 11, 12, 14, 15, 16)
- KRR = Application.Transpose(KRR)
- LRR = Application.Transpose(LRR)
- MRR = Application.Transpose(MRR)
- L1 = Sheet1.Range("C10000").End(xlUp).Row
- Sheet1.Range("B2:D" & L1).AutoFilter Field:=2, Criteria1:="="
- Sheet1.Range("B2:D" & L1).AutoFilter Field:=3, Criteria1:="<>"
- L2 = Sheet1.Range("D:D").SpecialCells(12).SpecialCells(2, 23).Cells.Count
- If L2 > 1 Then
- Sheet1.Range("B2:S" & L1).SpecialCells(12).Copy Sheet2.Range("B2")
- End If
- ARR = Sheet2.Range("B2:Z" & L2)
- BRR = Sheet2.Range("B2:Z" & L2)
- Sheet2.Range("B2:S" & L1).ClearContents
- For I = 1 To UBound(ARR)
- For J = 1 To UBound(KRR)
- BRR(I, KRR(J, 1)) = ARR(I, LRR(J, 1))
- Next
- For J = 1 To UBound(MRR)
- BRR(I, MRR(J, 1)) = ""
- Next
- Next
- Sheet2.Range("A2").Resize(UBound(BRR), 19) = BRR
- Sheet2.Range("R:R").NumberFormatLocal = "G/通用格式"
- Sheet2.Range("S:S").NumberFormatLocal = "0%"
- End Sub
复制代码 |
|