congdanhbt88
Thành viên mới
- Tham gia
- 13/9/16
- Bài viết
- 5
- Được thích
- 0
Sub K31()
Dim tong As Long, i As Long
For i = 1 To ThisWorkbook.Worksheets.Count
tong = tong + Sheets(i).Range("K31").Value
Next i
MsgBox tong 'Ket qua tong = 50
End Sub
Giữ ctrl + click chuột chọn các sheets cần paste (hoặc giữ shift + click sheet 1 + click sheet n, nếu liên tục), sau đó paste như bình thường.Bạn nào biết các paste cùng 1 nội dung cho tất cả các sheet được chọn ko? chỉ mình với. Thanks
Giữ ctrl + click chuột chọn các sheets cần paste (hoặc giữ shift + click sheet 1 + click sheet n, nếu liên tục), sau đó paste như bình thường.