摘要： Private Sub CommandButton1_Click() For i = 1 To Sheets.Count - 1 Dim shet Dim shetd shetd = "a" + Trim(str(i)) shet = "b" + Trim(str(i)) For j = 1 To 100 Dim sss sss = "A" + Trim(str(j)) //数字转换成字符，截... 阅读全文