|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
Sub 循环不连续区域()
Set d = CreateObject("Scripting.Dictionary")
[g1].CurrentRegion.Clear
For Each r In Columns(1).SpecialCells(xlCellTypeConstants, 23).Areas
Set qy = r.CurrentRegion
If Not d.Exists(qy.Address) Then
d(qy.Address) = ""
qy.Copy
[g1].Offset(i, 0).PasteSpecial Paste:=xlPasteAll, Operation:=xlPasteSpecialOperationNone, SkipBlanks:=False, Transpose:=True
i = i + 1
End If
Next r
Application.CutCopyMode = False '取消复制选区
End Sub
|
评分
-
1
查看全部评分
-
|