Yêu cầu bài toán: Điền giá trị từ A1:A10 là 1:100, tương ứng mỗi giá trị tại cột A điền tiếp giá trị tại cột B từ B1:B100 nếu là:
Để giải bài toán trên, các bạn làm theo các bước sau:
Bước 1: Các bạn tạo mới một module và copy code ở dưới đây vào.
Sub VongLapFor()
Dim i As Long
For i = 1 To 100
Cells(i, 1).Value = i
If i Mod 2 = 1 Then
Cells(i, 2).Value = "Excelnangcao.com"
Else
Cells(i, 2).Value = "Bluesofts.net"
End If
Next i
End Sub
Bước 2: Tại môi trường bảng tính, bạn tạo một nút bấm (hoặc Shap) để gán và chạy macro.
Bước 3: Click chuột trái vào nút bấm để chạy macro và nhận kết quả.
Các bạn vào đây download file ví dụ: Download