以G列分成多个工作表(以宏运行VBA)
Sub aa()
Dim a As Integer, b As Integer, c As Integer, sh As Worksheet
For a = 2 To [g65536].End(3).Row
If Cells(a, 7) <> Cells(a- 1, 7) Then
b = a
End If
c = Range("g:g").Find(Cells(a, 7), , , , , xlPrevious).Row
Set sh = Sheets.Add(, Sheets(Sheets.Count))
sh.Name = Sheets("sheet1").Cells(a, 7).Value
With Sheets("Sheet1")
Sheets("Sheet1").Range(.Cells(b, 1), .Cells(c, 10)).Copy Destination:=sh.[a2]
Sheets("Sheet1").Range("a1:j1").Copy Destination:=sh.[a1]
a = c
End With
Sheets("Sheet1").Select
Next
End Sub
(2013-05-03, Visual Basic, 37KB, 下载2次)
DL/T-645 2007 规约完整数据库文件
DL/T-645 2007 Statute of the integrity of database files (2009-12-22, Others, 622KB, 下载265次)
ssd7卡耐基教程，第一次考试97分答案
ssd7 Carnegie Course, the first 97 minutes exam answers (2008-05-22, SQL, 1KB, 下载280次)