|
Sheet เดือนอื่นๆ ให้มีรูปแบบเดียวกับเดือน Jan ในรูปที่เป็นตัวอย่าง
copy โค้ดดังต่อไปนี้ลงใน VBA แล้วสั่งรัน
Sub Consolidate()
ActiveWorkbook.Sheets("All").Select ActiveSheet.Range(ActiveSheet.Cells(2, 1), _ ActiveSheet.Cells(ActiveSheet.UsedRange.Rows.Count + 1, 4)).ClearContents
For i = 1 To ActiveWorkbook.Sheets.Count - 1 ActiveWorkbook.Sheets(i).Range(ActiveWorkbook.Sheets(i).Cells(2, 1), _ ActiveWorkbook.Sheets(i).Cells(ActiveWorkbook.Sheets(i).UsedRange.Rows.Count, 4)).Copy ActiveSheet.Cells(ActiveSheet.UsedRange.Rows.Count + 1, 1).Select ActiveSheet.Paste Next
ActiveSheet.Range("A1").Select
End Sub
จากคุณ |
:
The Big O
|
เขียนเมื่อ |
:
27 ธ.ค. 54 21:05:57
|
|
|
|
|