chuotchuix
Thành viên hoạt động
- Tham gia
- 3/4/13
- Bài viết
- 169
- Được thích
- 71
- Nghề nghiệp
- ky thuật
mình có 1 file tổng hợp dữ liệu từ nhiều sheet về một sheet. đoạn code file minh thì vẫn lấy được dữ liệu từ nhiều sheet về nhưng khúc mắc chỉ sai ở chỗ nếu cột ô nào mà dữ liệu co số 0 nằm phía trước khi lấy về sheet tổng hợp lại ko còn số 0 phía trước nữa.
ví dụ như: cột A 1: 0tmg hay 01245 ---> khi lấy về sheet tổng hợp chỉ còn là: tmg hay 1245
đây là đoạn code file mình:
Sub abc(ByVal wks As Worksheet)
Dim i As Long, n As Long, rng As Range
On Error Resume Next
n = 0
Set rng = wks.[AN2]
Do While rng(1, 1).Value <> ""
n = n + 1
Set rng = wks.[AN2].Offset(3, (n - 1) * 10).Resize(300, 10)
With Sheet1.[m60000].End(3).Offset(1)
.Offset(, -9).Resize(300, 11).Value = rng.Value
.Offset(, -10).Resize(300, 1).Value = rng.Offset(-4)(1, 1).Value
End With
Loop
End Sub
mong các AD xem và khắc phục dùm e
ví dụ như: cột A 1: 0tmg hay 01245 ---> khi lấy về sheet tổng hợp chỉ còn là: tmg hay 1245
đây là đoạn code file mình:
Sub abc(ByVal wks As Worksheet)
Dim i As Long, n As Long, rng As Range
On Error Resume Next
n = 0
Set rng = wks.[AN2]
Do While rng(1, 1).Value <> ""
n = n + 1
Set rng = wks.[AN2].Offset(3, (n - 1) * 10).Resize(300, 10)
With Sheet1.[m60000].End(3).Offset(1)
.Offset(, -9).Resize(300, 11).Value = rng.Value
.Offset(, -10).Resize(300, 1).Value = rng.Offset(-4)(1, 1).Value
End With
Loop
End Sub
mong các AD xem và khắc phục dùm e
