Snasui Excel Forum

เรียน อาจารย์
ขอสอบถามดังนี้ครับ
1.สอบถามเกี่ยวกับการ Copy เซลล์ที่ผสานกัน 3 เซลล์มาวางในเซลล์เดียว จะต้องเพิ่มอะไรบ้างครับ
ตัวอย่างเซลล์ที่แนบ เป็นการ Copy เซลล์ที่ผสานกัน 2 เซลล์มาวางในเซลล์เดียว ผมลองแล้วใช้ได้แต่จาก 3 มา 1 ไม่ได้ครับ
1.1 สอบถามถ้าผมไม่ใส่ Application.CutCopyMode = False หล ...

Sub UpDate_Meal_Accom()
Application.Run "UpDate_Meal_Accom_01"
On Error Resume Next
Dim Rx%, rxx%, Cx%
xdate = Worksheets("data").Range("c1") ' Check DATE"
rxx = Format(xdate, "d") ' Rxx = DATE
Rx = 6 ' Row Start Index
Cx = rxx + 2 ' Column Index
For i = Rx To Rx + 43
If Worksheets("Data").Cells(i ...