Tạo code cập nhật thông tin ở các sheet vào sheet tổng hợp (1 người xem)

[NH_DK]

Chào AC! Em có ví dụ này: Em muốn tạo code cập nhật thông tin các sheet Tờ khai nhập vào sheet tổng hợp?
Câu hỏi cụ thể trong file đính kèm!
File đính kèm

 

[nghiaphuc]

Chào AC! Em có ví dụ này: Em muốn tạo code cập nhật thông tin các sheet Tờ khai nhập vào sheet tổng hợp?
Câu hỏi cụ thể trong file đính kèm!
File đính kèm

Dùng code này nhé đồng chí:
[GPECODE=vb]Sub TongHop()
Dim i As Long
Sheet1.Move Before:=Sheets(1)
Sheet1.Activate
[B5:BL10000].ClearContents 'Xoa du lieu hien co
For i = 2 To Worksheets.Count
With Sheets(i)
Cells(3 + i, 2) = .[E4] 'So to khai
Cells(3 + i, 9) = .[G8] 'Ngay dang ky
Cells(3 + i, 14) = .[K36] 'So luong
Cells(3 + i, 18) = .[K37] 'Tong trong luong
Cells(3 + i, 22) = .[Z34] 'Phuong tien van chuyen
Cells(3 + i, 31) = .[J41] 'So hoa don
Cells(3 + i, 56) = .[P45] 'Gia tri
End With
Next
End Sub[/GPECODE]
Cơ mà nhìn cái sheet Tổng hợp của đồng chí cứ merge cells từa lưa tè le thấy ghê quá đi, để mỗi thứ trên 1 cột không phải dễ nhìn hơn à?

 

[HyperLink]

- nếu tiêu đề cột ko phải số mà là ký tự alphabet + việc xuất số liệu ra các cột ko liền kề (cách nhau khá xa) thì việc dùng địa chỉ của ô theo kiểu Cells() => rất khó xác định được đang nằm ở cột nào (phải đếm từng cột)

- bạn có thể viết theo kiểu Range()

'Cells(3 + i, 2) = .[E4] 'So to khai

Range("B" & 3 + i) = .[E4] 'So to khai