macro to copy 3 sheets to sheet1 & sort

25 ม.ค.55 มีโอกาสเขียน macro ใน excel คัดลอกข้อมูลจาก 3 sheets มาต่อกัน แล้วก็จัดเรียงตามวันที่ ซึ่งอยู่ใน column b และ ยังไม่ได้ปรับ code ให้เป็น function ครับ ทำให้ code ค่อนข้างยาว แต่ผมว่าอ่านง่าย ตรงไปตรงมาดี

Sub copy_sheets()
Dim start As String, tr As Integer
start = “a3” ‘ start row 3
tr = 0
‘=========
ActiveWorkbook.Worksheets(“¡”).Select
Set tbl = Range(start).CurrentRegion
tbl.Offset(2, 0).Resize(tbl.Rows.Count – 2, tbl.Columns.Count).Copy
tr = tr + tbl.Rows.Count
Range(start).CurrentRegion.Copy
ActiveWorkbook.Worksheets(“sheet1”).Select
Range(“a1”).Activate
ActiveSheet.Paste
‘=========
ActiveWorkbook.Worksheets(“¢”).Select
Set tbl = Range(start).CurrentRegion
tbl.Offset(2, 0).Resize(tbl.Rows.Count – 2, tbl.Columns.Count).Copy
tr = tr + tbl.Rows.Count
ActiveWorkbook.Worksheets(“sheet1”).Select
Range(“a13”).Activate
ActiveSheet.Paste
‘=========
ActiveWorkbook.Worksheets(“¤”).Select
Set tbl = Range(start).CurrentRegion
tbl.Offset(2, 0).Resize(tbl.Rows.Count – 2, tbl.Columns.Count).Copy
tr = tr + tbl.Rows.Count
ActiveWorkbook.Worksheets(“sheet1”).Select
Range(“a23”).Activate
ActiveSheet.Paste
‘=========
ActiveWorkbook.Worksheets(“Sheet1”).Sort.SortFields.Add Key:=Range(“B3:B” & tr) _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets(“Sheet1”).Sort
.SetRange Range(“A3:L” & tr)
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

Author: บุรินทร์ รุจจนพันธุ์

I am Lecturer, Developer, Researcher, Columnist, Writer, Photographer, and Webmaster - L@mpang man

Leave a Reply