Posted inโค้ด

excel เลื่อนบรรทัดลงตามจำนวนข้อมูลที่ Spill

Sub MoveMergedCells()Dim ws As WorksheetDim spillRange As RangeDim lastRow As LongDim mergedRange As RangeDim A as long Set ws = ThisWorkbook.Sheets("Sheet1") ' เปลี่ยนชื่อชีทตามต้องการ Set spillRange = ws.Range("A1").CurrentRegion ' เปลี่ยนเซลล์เริ่มต้นตามต้องการ '…