ฟอรัม Excel, VBA และอื่นๆ ของคนไทยเพื่อประโยชน์ของทุกคนในจักรวาล (Forum Excel, VBA and others of Thai people for everyone in the universe.)
http://www.snasui.com/
ผมลองบันทึกมาโคร Copy ข้อมูลจาก Sheet Raw ไป Sheet Sum แต่ติดปัญหาคือ
ลองศึกษาจากลิงค์นี้ไปประยุกต์ปรับใช้ดูครับ viewtopic.php?f=3&t=3155 ตัวอย่างการปรับ Code ตามด้านล่างครับ
Code: Select all
Sub Macro()
'
' Macro áÁâ¤Ã
'
'
Sheets("Sum").Select
Columns("B:C").Select
Selection.ClearContents
Range("B3").Select
Sheets("Raw").Select
Range("B4:C21").Select
Selection.Copy
Sheets("Sum").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Raw").Select
Range("B4:B21, D4:D21").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sum").Select
Range("B" & Rows.Count).End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Raw").Select
Range("B4:B21, E4:E21").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sum").Select
Range("B" & Rows.Count).End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C39").Select
Sheets("Raw").Select
Application.CutCopyMode = False
Sheets("Sum").Select
End Sub
บรรทัดไหนที่ได้ปรับให้ยืดหยุ่นตามข้อมูลต้นแหล่งครับ 
ตามที่แนบมานั้นยังไม่ได้ปรับใช้กับ Code ผมกำลังถามถึง Code ครับ