Có nhiều cách để thực hiện yêu cầu của bạn:Nếu mình muốn in dữ liệu của 1 cell trong 1 sheet ra tất cả các cell cùng tên của các sheet khác (ví dụ có 30 sheet) thì mình có thể dùng hàm nào? Cảm ơn
Sub Copy_Data()
Dim Sh As Worksheet, Cll As Range
Set Cll = Application.InputBox(Prompt:="Chon o can copy (o nguon):", Type:=8)
For Each Sh In ThisWorkbook.Sheets
Sh.Range(Cll.Address) = Cll.Value
Next Sh
End Sub