|
Private Sub CommandButton1_Click()
Dim d, ar
Set d = CreateObject("Scripting.Dictionary")
ar = Sheets("合同列表").Range("C4:C453")
For i = 2 To UBound(ar)
For j = 1 To UBound(ar, 2)
If ar(i, j) <> "" Then d(ar(i, j)) = ""
Next
Next
Sheets("合同分类").[b:b].ClearContents
Sheets("合同列表").[b3] = "科目名称"
Columns("b:b").NumberFormatLocal = "@"
[b4].Resize(d.Count, 1) = Application.Transpose(d.keys)
End Sub
----------------------------------------------------------------------------------------------------------------------
sub zz()
Sheets("合同分类").Range("B4:L353").Select
Selection.CreateNames Top:=False, Left:=True, Bottom:=False, Right:= _
False
Sheets("合同分类").Range("M336").Select
想在第1段话的步骤执行完后执行第2段话,应该怎么才能连接上呢??求教,谢谢!
|
|