Tích hợp dữ liệu cột thành dòng (3 người xem)
- Thread starter HiLander
- Ngày gửi
Người dùng đang xem chủ đề này
♫ђöล♥ßล†♥†µ♫
Thành viên tiêu biểu
- Tham gia
- 10/3/18
- Bài viết
- 684
- Được thích
- 1,443
- Giới tính
- Nữ
- Nghề nghiệp
- Worksheet Function trong VBA , Thư viện mã lập trình, Scripting.Dictionary, Sổ tay VBA, Các hàm dò tìm và tham chiếu
Cái này cũng là công thức ý nha (Nhưng nó là công thức của Thầy NDu)
Chào bạn ♫ђöล♥ßล†♥†µ♫,
Cảm ơn bạn nhiều,
Chúc bạn cuối tuần vui vẻ!
Chào bạn ♫ђöล♥ßล†♥†µ♫,
Bạn giúp mình tổng hộp dữ liệu từ nhiều sheet thành 1 sheet với. Thường thì mình copy sao đó dán thành 1 sheet tổng nên tốn quá nhiều thời gian
Cảm ơn bạn nhiều
Chúc bạn cuối tuần vui vẻ!
Cảm ơn bạn nhiều,
Chúc bạn cuối tuần vui vẻ!
Bài đã được tự động gộp:
Chào bạn ♫ђöล♥ßล†♥†µ♫,
Bạn giúp mình tổng hộp dữ liệu từ nhiều sheet thành 1 sheet với. Thường thì mình copy sao đó dán thành 1 sheet tổng nên tốn quá nhiều thời gian
Cảm ơn bạn nhiều
Chúc bạn cuối tuần vui vẻ!
Lần chỉnh sửa cuối:
♫ђöล♥ßล†♥†µ♫
Thành viên tiêu biểu
- Tham gia
- 10/3/18
- Bài viết
- 684
- Được thích
- 1,443
- Giới tính
- Nữ
- Nghề nghiệp
- Worksheet Function trong VBA , Thư viện mã lập trình, Scripting.Dictionary, Sổ tay VBA, Các hàm dò tìm và tham chiếu
Sao để cái chữ nóa toa thế
Phuocam
Thành viên mới
- Tham gia
- 16/5/13
- Bài viết
- 4,750
- Được thích
- 7,781
nóa toa để nhiều ngưởi nhìn rỏa hơn.Sao để cái chữ nóa toa thế
Chào bạn,
Cảm ơn bạn nhiều,
bạn cho mình hỏi thêm là có giới hạn số dòng trong các sheet không vậy bạn?
cảm ơn!
À xin lỗi cho mình hỏi thêm lần nữa
hiện tại thì chỉ có 8 sheet thôi. Nếu mình thêm sheet nữa thì macro có chạy được không bạn
cảm ơn bạn nhiều
Cảm ơn bạn nhiều,
bạn cho mình hỏi thêm là có giới hạn số dòng trong các sheet không vậy bạn?
cảm ơn!
Bài đã được tự động gộp:
À xin lỗi cho mình hỏi thêm lần nữa
hiện tại thì chỉ có 8 sheet thôi. Nếu mình thêm sheet nữa thì macro có chạy được không bạn
cảm ơn bạn nhiều
♫ђöล♥ßล†♥†µ♫
Thành viên tiêu biểu
- Tham gia
- 10/3/18
- Bài viết
- 684
- Được thích
- 1,443
- Giới tính
- Nữ
- Nghề nghiệp
- Worksheet Function trong VBA , Thư viện mã lập trình, Scripting.Dictionary, Sổ tay VBA, Các hàm dò tìm và tham chiếu
À. Chết rồi quên mất cái này
. Bạn lấy Code này thay cho Code Cũ
PHP:
Sub TonghopDL()
Dim Ws As Worksheet, sArr(), aRes, Er As Long
Application.ScreenUpdating = False
For Each Ws In Worksheets
If Ws.Name <> "Tonghop" Then
With Ws
sArr = .Range("A3", .Range("A" & Rows.Count).End(xlUp)).Resize(, 15).Value
End With
If Not IsArray(aRes) Then
aRes = Join2DArray(sArr) '*
Else
aRes = Join2DArray(aRes, sArr) '*
End If
End If
Next
If UBound(aRes) < Rows.Count - 3 Then
With Sheets("Tonghop")
Er = .Range("A" & Rows.Count).End(xlUp).Row
If Er > 2 Then
.Range("A3", .Range("A" & Er)).Resize(, 15).ClearContents
.Range("A3").Resize(UBound(aRes, 1), 15).Borders.LineStyle = xlNone
End If
.Range("A3").Resize(UBound(aRes), UBound(aRes, 2)).Value = aRes
.Range("A3").Resize(UBound(aRes), UBound(aRes, 2)).Borders.LineStyle = xlContinuous
.Range("A3").Resize(UBound(aRes), UBound(aRes, 2)).Borders(xlInsideHorizontal).Weight = xlHairline
End With
Else
MsgBox "So dong nhieu hon dong bang tinh"
End If
Application.ScreenUpdating = True
End Sub♫ђöล♥ßล†♥†µ♫
Thành viên tiêu biểu
- Tham gia
- 10/3/18
- Bài viết
- 684
- Được thích
- 1,443
- Giới tính
- Nữ
- Nghề nghiệp
- Worksheet Function trong VBA , Thư viện mã lập trình, Scripting.Dictionary, Sổ tay VBA, Các hàm dò tìm và tham chiếu
Kết quả có thể gi được là 1048573 dòng (cái này thì chưa thử)
Bài đã được tự động gộp:
Tên đẹp mà Anh
♫ђöล♥ßล†♥†µ♫
Thành viên tiêu biểu
- Tham gia
- 10/3/18
- Bài viết
- 684
- Được thích
- 1,443
- Giới tính
- Nữ
- Nghề nghiệp
- Worksheet Function trong VBA , Thư viện mã lập trình, Scripting.Dictionary, Sổ tay VBA, Các hàm dò tìm và tham chiếu
Bạn qua đây đọc về mảng trong VBA https://sites.google.com/site/exl2lab/vba-in-excel/bai-10-array
À, mình nói thật nó. Mình đăng ký lâu rồi. Mình cũng không biết sao nữa. Mình đâu có ý nghĩ là bạn nói tên mình đẹp hay xấu đâu.
mà bạn ơi mình copy code mới không chạy được. Bạn copy lên file góc test giúp mình đi
cảm ơn bạn nhiều
mà bạn ơi mình copy code mới không chạy được. Bạn copy lên file góc test giúp mình đi
cảm ơn bạn nhiều
♫ђöล♥ßล†♥†µ♫
Thành viên tiêu biểu
- Tham gia
- 10/3/18
- Bài viết
- 684
- Được thích
- 1,443
- Giới tính
- Nữ
- Nghề nghiệp
- Worksheet Function trong VBA , Thư viện mã lập trình, Scripting.Dictionary, Sổ tay VBA, Các hàm dò tìm và tham chiếu
Nội quy như vầy Nick đăng ký không được có các ký tự đặc biệt như * / \ ? : " ( ) mà Anh. Ký tự của em không nằm trong điều cấm mà
Bài đã được tự động gộp:
Anh @hpkhuong đang nói em mà. Đâu có nói Anh đâu. Anh nhận vơ rùi
♫ђöล♥ßล†♥†µ♫
Thành viên tiêu biểu
- Tham gia
- 10/3/18
- Bài viết
- 684
- Được thích
- 1,443
- Giới tính
- Nữ
- Nghề nghiệp
- Worksheet Function trong VBA , Thư viện mã lập trình, Scripting.Dictionary, Sổ tay VBA, Các hàm dò tìm và tham chiếu
Diễn đàn có 2 kiểu đăng nhập anh ạ
Cách 1. Đăng nhập theo tên hiển thị
Cách 2. Đăng nhập theo địa chỉ mail
Em đang đăng ngập theo cách 2
♫ђöล♥ßล†♥†µ♫
Thành viên tiêu biểu
- Tham gia
- 10/3/18
- Bài viết
- 684
- Được thích
- 1,443
- Giới tính
- Nữ
- Nghề nghiệp
- Worksheet Function trong VBA , Thư viện mã lập trình, Scripting.Dictionary, Sổ tay VBA, Các hàm dò tìm và tham chiếu
Bài viết mới nhất
NHỜ ANH CHỊ GIÚP EM CÂU LỆNH NÀY VỚI Ạ
(2 người xem)
Xin Code xóa Module.
(1 người xem)
- Question
- Đã giải quyết
Quản lý email outlook qua VBA cần giúp đỡ
(1 người xem)