VBA Và Excel Objects: Range, Cells, Worksheet, Workbook — Hiểu Rõ Để Code Nhanh

' Một ô
Range("A1").Value = "Hello"

' Vùng ô
Range("A1:C10").Font.Bold = True

' Dùng biến
Dim rng As Range
Set rng = Range("A1:A100")
rng.Interior.Color = RGB(255, 255, 0) ' Tô vàng

' Cells dùng hàng và cột dạng số — rất tiện trong vòng lặp
Cells(1, 1).Value = "Row 1, Col 1" ' = A1
Cells(5, 3).Value = "Row 5, Col 3" ' = C5

' Kết hợp trong For loop
Dim i As Long
For i = 1 To 100
    Cells(i, 1).Value = i
    Cells(i, 2).Value = i * 2
Next i

' Truy cập worksheet
Worksheets("Sheet1").Range("A1").Value = "Data"
Worksheets(1).Activate

' Thêm worksheet mới
Dim ws As Worksheet
Set ws = Worksheets.Add
ws.Name = "Report_" & Format(Date, "YYYYMMDD")

' Lặp qua tất cả sheets
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
    Debug.Print sh.Name & ": " & sh.UsedRange.Rows.Count & " rows"
Next sh

' Mở file
Dim wb As Workbook
Set wb = Workbooks.Open("C:\Data\Report.xlsx")

' Copy dữ liệu giữa workbooks
wb.Worksheets(1).Range("A1:Z100").Copy
ThisWorkbook.Worksheets("Import").Range("A1").PasteSpecial xlPasteValues

' Đóng và lưu
wb.Close SaveChanges:=True