Hướng dẫn cách bọc hàm ROUND trong excel hàng loạt

Một cách hiệu quả hơn để thay thế tất cả các công thức trong Excel bằng cách bọc chúng trong hàm ROUND là sử dụng Macro VBA. Dưới đây là mã VBA để thực hiện điều này:

  1. Mở cửa sổ VBA:

    • Nhấn Alt + F11 để mở cửa sổ VBA.

  2. Tạo một module mới:

    • Trong cửa sổ VBA, chọn Insert > Module để tạo một module mới.

  3. Nhập mã VBA:

    Sub WrapFormulasWithRound()
        Dim cell As Range
        Dim formula As String
        
        ' Duyệt qua tất cả các ô trong vùng chọn
        For Each cell In Selection
            If cell.HasFormula Then
                formula = cell.Formula
                ' Bọc công thức bằng ROUND
                cell.Formula = "=ROUND(" & Mid(formula, 2) & ", 0)"
            End If
        Next cell
    End Sub


    • Sao chép và dán mã sau vào module:

  4. Chạy Macro:

    • Để chạy Macro, quay lại Excel, chọn phạm vi ô bạn muốn áp dụng (các ô có công thức).

    • Nhấn Alt + F8, chọn WrapFormulasWithRound, rồi nhấn Run.

Macro này sẽ bọc tất cả các công thức trong các ô đã chọn trong hàm ROUND với 2 chữ số thập phân.

Chúc các bạn thành công

Bình luận