1.excelå¤ä¸ªsheetå并
excelå¤ä¸ªsheetå并
Sub å并å½åå·¥ä½ç°¿ä¸çææå·¥ä½è¡¨()
Application.ScreenUpdating = False
For j = 1 To Sheets.Count
If Sheets(j).Name <> ActiveSheet.Name The视频视频宝宝麻将源码n
x = Range("b").End(xlUp).Row + 1
Sheets(j).UsedRange.Copy Cells(x, 2)
Cells(x, 1) = Sheets(j).Name
End If
Next
Application.ScreenUpdating = True
MsgBox "å½åå·¥ä½ç°¿ä¸çå ¨é¨å·¥ä½è¡¨å·²ç»å并å®æ¯ï¼", vbInformation, "æ示"
End Sub
è¯è¯è¿ä¸ªä»£ç