|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
Sub find_test()
Dim rng As Range
Dim myarea As Range
Dim first_address As String, find_str As String
Set d = CreateObject("scripting.dictionary")
find_str = "党支部党员挂点班组登记表"
On Error Resume Next
Cells.Find find_str, [a1], , xlPart
Set rng = [a1]
first_address = rng.Address
Do
num = num + 1
'要执行的代码
bzm = Cells(rng.Row + 1, "D")
last_address = rng.Address
Set rng = Cells.FindNext(rng)
Set d(bzm) = Range(last_address, rng.Offset(-2)).EntireRow
Loop Until rng.Address = first_address
Debug.Print num
Set d(bzm) = Range(last_address, Range("a1").SpecialCells(xlCellTypeLastCell)).EntireRow
For Each k In d.keys
Sheets(1).Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = k
Cells.Clear
d(k).Copy [a1]
Next
End Sub |
评分
-
1
查看全部评分
-
|