碎碎念

Sub test() ActiveSheet.UsedRange.ClearContents Dim countalla, countthis As Integer countallb = 0 countthis = 0 For i = 1 To Sheets.Count If Sheets(i).Name <> ActiveSheet.Na

Sub main() Dim n, i As Long n = 50 For i = 1 To n u (i) Next End Sub Sub u(i) Dim pos As Long Dim str1, str2 As String 'ActiveSheet.Cells(i, 3) = ActiveSheet.Cells(i, 2) pos = InStr(Sheet1.Cell