Phương pháp nhập dữ liệu đồng thời vào nhiều Sheet

1. Nhóm các sheet thành group sử dụng phím Ctrl

Bước 2: Sau khi Group xong tiến hành nhập dữ liệu tại 1 sheet bất kì.

2. Sử dụng VBA để nhập dữ liệu

// Sự kiện SelectionChange.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("MyRank"), Target) Is Nothing Then
Sheets(Array("Sheet5", "Sheet4", "Sheet3", "Sheet2", "Sheet1")).Select
Else
Me.Select
End If
End Sub
// Sự kiện Change.
Private Sub worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("MyRank"), Target) Is Nothing Then
With Range("MyRank")
.Copy Destination:=Sheets("Sheet3").Range("A5")
.Copy Destination:=Sheets("Sheet1").Range("E5")
End With
End If
End Sub