Giúp mình dán giá trị theo từng vùng

[tvl297]

Giúp mình viết với biểu này với

 

[SA_DQ]

Macro của bạn OK rồi mà! Mình giúp bạn rút gọn, nha:

Option Explicit
Const SoLg As Long = 79          '<=|'
Sub GPECopyAndPasteValuesInColumns()
 Dim MyAdd As String, jJ As Byte
 
 On Error Resume Next             ' ???'
 Application.ScreenUpdating = False
 For jJ = 1 To 4
    MyAdd = Choose(jJ, "B5:F5", "L5:M5", "P5:Q5", "W5:AJ5")
    With Range(MyAdd)
        .AutoFill Destination:=.Resize(SoLg), Type:=xlFillDefault
        .Offset(1).Resize(SoLg).Copy
        .Offset(1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    End With
 Next jJ
 Application.CutCopyMode = False
 Application.ScreenUpdating = True
End Sub

 

[tvl297]

mình làm như vậy rùi. nhưng làm trên nhiều biểu thì macro không dán giá trị được. chỉ dán giá trị được 1 lần, chạy thì công thức vẫn không thể thành giá trị. bạn giúp mình với

 

[tvl297]

uh. Mình làm được rùi.cảm ơn bạn nhé