Copy công thức vào 1 vùng không cố định

[lmyhien]

Chào anh chị, em mới tập học làm macro để giải quyết công việc 1 cách nhanh chóng. Nhưng đến bước này em làm hoài không được
Em cần copy công thức từ ô B2 đến ô B (dòng cuối của bảng tính). Sau đó paste value.
Em search cách khai báo bên dưới nhưng làm hoài không được
Anh chị giúp dùm em nha, em cảm ơn ạ

Sub Test()
Dim lr as long
lr=range(“A” & rows.count).end(xlup).row
Range(“B2:B” & lr).PasteSpecial
End Sub

 

[giaiphap]

Chào anh chị, em mới tập học làm macro để giải quyết công việc 1 cách nhanh chóng. Nhưng đến bước này em làm hoài không được
Em cần copy công thức từ ô B2 đến ô B (dòng cuối của bảng tính). Sau đó paste value.
Em search cách khai báo bên dưới nhưng làm hoài không được
Anh chị giúp dùm em nha, em cảm ơn ạ

Bạn sửa code lại thế này xem sao.

Sub Macro10()
Dim iRow%
    Range("B2") = "=VALUE(LEFT(RC[1],3))"
    iRow = Range("A1000000").End(xlUp).Row
    Range("B2").AutoFill Destination:=Range("B2:B" & iRow), Type:=xlFillDefault
    Range("B2:B" & iRow).Copy
    Range("B2").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
End Sub

 

[lmyhien]

Mình cảm ơn bạn nhiều lắm, mình run được rồi

 

[Ba Tê]

Mình cảm ơn bạn nhiều lắm, mình run được rồi

Sao không gán công thức luôn mà phải Copy từ 1 ô rồi Paste?

Sub Macro1()
Dim R As Long
    R = Range("C10000").End(xlUp).Row
    Range("B2:B" & R).Value = "=Left(RC[1], 3)"
    Range("B2:B" & R).Value = Range("B2:B" & R).Value
End Sub

 

[VetMini]

Sao không gán công thức luôn mà phải Copy từ 1 ô rồi Paste?
...

Sao bác biết "run" có nghĩa là gì?
Nhiều khi làm dài hơn cho nó giảm nhiệt, run đã hơn.

 

[be_09]

Chào anh chị, em mới tập học làm macro để giải quyết công việc 1 cách nhanh chóng. Nhưng đến bước này em làm hoài không được
Em cần copy công thức từ ô B2 đến ô B (dòng cuối của bảng tính). Sau đó paste value.
Em search cách khai báo bên dưới nhưng làm hoài không được
Anh chị giúp dùm em nha, em cảm ơn ạ

Thử code sau: Khi chạy code nó chừa hàm ở Cell cuối cùng cột B, bạn vào Cell cuối và Fill hàm xuống sau đó chạy code nó vẫn chừa hàm ở Cell cuối cùng.

Sub GanGiaTri()
    Dim DongCuoi As Long
    With Sheet1
        DongCuoi = .Cells(.Rows.Count, "A").End(xlUp).Row
        .Range("B3:B" & DongCuoi).Offset(-1).Value = _
        .Range("B3:B" & DongCuoi).Offset(-1).Value
    End With
End Sub

 

[lmyhien]

Sao không gán công thức luôn mà phải Copy từ 1 ô rồi Paste?

Vì em mới học nên không biết, bình thường marco record sao thì em lưu lại y như vậy, chứ chưa biết và chưa hiểu các hàm lắm ạ