|
- Sub Macro1()
- Dim arr, i&, j&
- Application.ScreenUpdating = False
- With Sheet2
- arr = .Range("a1").CurrentRegion
- For i = 2 To UBound(arr)
- .[h3] = ""
- .Cells(i, 1).Resize(1, 5).Copy .[h2]
- If InStr(arr(i, 1), "&") > 0 Then
- x = Split(arr(i, 1), "&")
- .[h2] = x(0): .[h3] = x(1)
- End If
- [M2:AS36].AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
- .Range("h1").CurrentRegion
- For j = 3 To Range("a65536").End(xlUp).Row
- If Rows(j).Hidden = False Then Cells(j, "aq") = arr(i, 6)
- Next
- Next
- End With
- ActiveSheet.ShowAllData
- Application.ScreenUpdating = True
- End Sub
复制代码 |
评分
-
查看全部评分
|