สอบถามปัญหาการ Copy ข้อมูลจากชีทหนึ่งไปอีกชีทหนึ่ง

[tigerwit]

จากไฟล์ที่แนบมา Sheet1 คือข้อมูลต้นทางที่ต้องการคัดลอกไปยัง Sheet2
โดยที่ sheet2 ได้จัดรูปแบบไว้เรียบร้อยแล้ว ต้องการให้ข้อมูลจาก Sheet1 เมื่อถูกคัดลอกไปวางใน Sheet2 แล้ว
มีรูปแบบตามที่จัดไว้ใน Sheet2 โดยใช้ Code VB

Code: Select all

Sub Macro8()
    Range("C3:I162").Select
    Selection.Copy
    Sheets("Sheet2").Select
    Range("C3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("C3").Select
End Sub

จาก Code รูปแบบต่างๆ ได้ตามต้องการ มีปัญหาที่ คลอลัมน์ E จาก เซล E34 ไปจนถึงเซล E162 เป็นตัวเลขที่ถูกเก็บในรูปข้อความ
เมื่อไปวางไว้ที่ Sheet2 ก็ยังคงเป็นตัวเลขที่ถูกเก็บในรูปข้อความ เหมือนเดิม
จุดนี้จะแก้ไข Code VB อย่างไรครับ เมื่คัดลอกมาแล้วรูปแบบเซลใน sheet2 คลอลัมน์ E เป็นตัวเลขจริงๆ

[snasui]

ลองปรับ Code เป็นด้านล่างครับ

Code: Select all

Sub Macro8()
'    Range("C3:I162").Select
'    Selection.Copy
'    Sheets("Sheet2").Select
'    Range("C3").Select
'    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
'        :=False, Transpose:=False
'    Range("C3").Select
    Worksheets("Sheet2").Range("c3:i162").Value = Worksheets("Sheet1").Range("c3:i162").Value
End Sub

[tigerwit]

ขอบคุณครับผม