首先提取是要看你提取单元格及内容,来进行判定。
大致分为几点:
复制粘贴。此类比较繁琐。
建议使用公式:vlookup;这个提取基数来进行,
公式=,直接提取。
录制宏,设置宏的快捷键。一键搞定
Sub 测试()
Application.ScreenUpdating = False
Dim sht As Worksheet
On Error Resume Next
Set sht = Sheets("汇总")
If Err = 0 Then GoTo 1010
Sheets.Add(after:=Sheets(Sheets.Count)).Name = "汇总"
1010: For Each Sha In Worksheets
If Sha.Name <> "汇总" Then
Sheets("汇总").Range("A" & Sheets("汇总").Range("A65536").End(xlUp).Row() + 1 & ":A" & Sheets("汇总").Range("A65536").End(xlUp).Row() + 9) = Sha.Range("A1:A9").Value
End If
Next
Application.ScreenUpdating = True
End Sub
算了,10分 懒得写VBA了,现在看见代码就想吐!
你把这个复制过去重新排序不就可以了吗?