Dim zz, xx
'定义对话框变量
Dim cc As FileDialog
'文件对话
Set cc = Application.FileDialog(msoFileDialogFilePicker)
With cc
If .Show = -1 Then
Dim vrtSelectedItem As Variant
Dim i As Integer
i = 1
For Each vrtSelectedItem In .SelectedItems
Dim tempwb As Workbook
'定义tempwb为工作蒲
Set tempwb = Workbooks.Open(vrtSelectedItem)
Dim k
k = 3
Do While tempwb.Worksheets(1).Range("C" & k) <> ""
If Not (tempwb.Worksheets(1).Range("B" & k) Like "大") Then
If tempwb.Worksheets(1).Range("C" & k) Like "2745" Then
tempwb.Worksheets(1).Range("B" & k) = Range("B" & k) & "大"
zz = zz + 1
ElseIf tempwb.Worksheets(1).Range("C" & k) Like "1830" Then
tempwb.Worksheets(1).Range("B" & k) = Range("B" & k) & "大"
zz = zz + 1
End If
End If
k = k + 1
Loop
tempwb.Close SaveChanges:=True
xx = xx + 1
i = i + 1
Next vrtSelectedItem
End If
End With
Set cc = Nothing
MsgBox "处理了" & xx & "张表," & "加了" & zz & "个大字"