Em nhờ anh chị viết CODE giúp em gộp dữ liệu từ 2 cột của 2 sheet khác nhau (1 người xem)

[minhtuan91]

Dear anh chị
Em muốn nhờ anh chị giúp em tổng hợp dữ liệu từ cột a của 2 sheet 1 và sheet 2 vào dòng 5 cột a của sheet 3 bằng VBA.

Bình thường làm tay em sẽ copy dữ liệu cột A sheet 1 sau đó copy nối dữ liệu cột a sheet 2 vào cột a sheet 3 sau số Remove lại và copy dữ liệu theo đúng ô mình muốn.

Em cảm ơn

 

[befaint]

Dear anh chị
Em muốn nhờ anh chị giúp em tổng hợp dữ liệu từ cột a của 2 sheet 1 và sheet 2 vào dòng 5 cột a của sheet 3 bằng VBA.

Bình thường làm tay em sẽ copy dữ liệu cột A sheet 1 sau đó copy nối dữ liệu cột a sheet 2 vào cột a sheet 3 sau số Remove lại và copy dữ liệu theo đúng ô mình muốn.

Em cảm ơn

Kết quả mong muốn như nào thì bạn viết vào sheet 3.
Cái chỗ màu đỏ là thao tác như nào vậy? Remove Duplicates hả? Nếu vậy thì nói tiếng Việt: "Loại trùng" cho nhanh.

 

[befaint]

Sub minhtuan91()
Dim rng1 As Variant, rng2 As Variant, lr As Long
rng1 = Sheet1.Range("A8:A" & Sheet1.Range("A65000").End(xlUp).Row).Value
rng2 = Sheet2.Range("A4:A" & Sheet2.Range("A65000").End(xlUp).Row).Value
With Sheet3
    lr = UBound(rng1, 1)
    .Range("A5").Resize(lr, 1).Value = rng1
    .Range("A5").Offset(lr, 0).Resize(UBound(rng2, 1), 1).Value = rng2
    lr = .Range("A65000").End(xlUp).Row
    .Range("A5:A" & lr).RemoveDuplicates Columns:=1, Header:=xlNo
End With
End Sub

 

[minhtuan91]

Em cảm ơn anh nhé.
Sau khi Code xong đã đúng theo ý của em nhưng nó bị khoảng trắng như bên dưới. Anh code xóa luôn những dòng trắng giúp em.
[TABLE="width: 201"]
[TR]
[TD]Hà nội12
[/TD]
[/TR]
[TR]
[TD]Hà nội85[/TD]
[/TR]
[TR]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[/TR]
[TR]
[TD]Lai châu1[/TD]
[/TR]
[TR]
[TD]Lai châu2[/TD]
[/TR]
[TR]
[TD]Lai châu3[/TD]
[/TR]
[/TABLE]

 

[minhtuan91]

Em tìm trên mạng thì có 1 đoạn code sau sẽ dùng để xóa khoảng trắng được:
Dim i As Integer
For i = 5500 To 5 Step -1
If Cells(i, 1) = "" Then
Rows(i).Delete
End If
Next
Do không biết chính xác sẽ có bao nhiêu dòng dữ liệu nên em thường để cho code chạy từ 5500 dẫn tới file chạy nặng.
Anh cho em hỏi là có cách nào xác định chính xác số dòng dữ liệu để file đỡ nặng không ạ

 

[befaint]

Em cảm ơn anh nhé.
Sau khi Code xong đã đúng theo ý của em nhưng nó bị khoảng trắng như bên dưới. Anh code xóa luôn những dòng trắng giúp em.

Sửa lại ở bài #3 rồi...