Excel Forum

Sub ERASE_A()
'
' ERASE_A Macro
'

'
Rows("2:2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Delete Shift:=xlUp
Range("D7").Select
End Sub
Sub VBACOPY()
'
' VBACOPY Macro
'

'
Sheets("IF").Select
Selection.Copy
Sheets("DATA").Select
Range("D2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("D2:D20")
Range("D2:D20").Select
ActiveWorkbook.Save
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("E2").Select
End Sub


ถ้าต้องการให้VBAก๊อปปี้สูตรเท่ากับข้อมูลที่มีทุกครั้งต้องแก้ตรงไหนครับ

กรุณาปรับ Code ให้แสดงข้อความเป็น Code เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกต่อการอ่าน ดูกฎการใช้บอร์ดข้อ 5 ด้านบนประกอบครับ