Code VB Copy ข้อมูลไปวางที่เซลที่ถูกผสาน

[tigerwit]

จากไฟล์ที่แนบมา

Code: Select all

Sub CopyToMergedCell()
  Dim sourceRange As Range, TagetRange As Range
  Set sourceRange = ThisWorkbook.Sheets("Sheet1").Range("A1:A45")
  Set TagetRange = ThisWorkbook.Sheets("Sheet2").Range("B1:B45")
  sourceRange.Copy
  TagetRange.PasteSpecial Paste:=xlPasteValues
  Application.CutCopyMode = False
End Sub

ต้องการ copy ข้อมูลจาก sheet1 เซล A1 ถึง A45 ไปวางที่ sheet2 ตั้งแต่เซล B1 ถึง B45
ต้องปรับโค๊ดอย่างไรครับ

[puriwutpokin]

Revised

Code: Select all

Sub CopyToMergedCell()
  Dim sourceRange As Range, TagetRange As Range
  Set sourceRange = ThisWorkbook.Sheets("Sheet1").Range("A1:A45")
  Set TagetRange = ThisWorkbook.Sheets("Sheet2").Range("B1:B45")
  sourceRange.Copy
  TagetRange.PasteSpecial Paste:=xlPasteFormulasAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
  Application.CutCopyMode = False
End Sub

[tigerwit]

ขอบคุณครับ