Làm thế nào hợp nhất 2 cột dữ liệu trong Excel?!

[meocon249]

Anh chị ơi giúp em với!!!!
Khi cóp số liệu từ file PDF sang Exel, các số liệu bị nhảy cột.
Bây h, Em muốn đẩy số liệu từ cột B sang cột A nhưng vẫn muốn giữ số liệu cột A. Chỉ ô nào trống bên A thì mới điền bên B vào.
Có cách nào thao tác nhanh không a,?
Em cám ơn rất nhìu....:x

 

[TrungChinhs]

Anh chị ơi giúp em với!!!!
Khi cóp số liệu từ file PDF sang Exel, các số liệu bị nhảy cột.
Bây h, Em muốn đẩy số liệu từ cột B sang cột A nhưng vẫn muốn giữ số liệu cột A. Chỉ ô nào trống bên A thì mới điền bên B vào.
Có cách nào thao tác nhanh không a,?
Em cám ơn rất nhìu....:x

Theo tôi biết ít nhất là có 2 cách (công thức hoặc VBA).
Nếu dùng công thức thì bạn làm như sau:
1. Tại cột B bạn dùng Autofilter lọc NonBlanks
2. Tại cột A bạn nhập công thức = cột B (vd:A5=B5) rồi fill xuống.
3. Bỏ Autofilter, Copy cột A và Paste Values (chuyển công thức sang giá trị).

 

[ndu96081631]

Theo tôi biết ít nhất là có 2 cách (công thức hoặc VBA).
Nếu dùng công thức thì bạn làm như sau:
1. Tại cột B bạn dùng Autofilter lọc NonBlanks
2. Tại cột A bạn nhập công thức = cột B (vd:A5=B5) rồi fill xuống.
3. Bỏ Autofilter, Copy cột A và Paste Values (chuyển công thức sang giá trị).

Anh nghĩ xem liệu có thể áp dụng giống chiêu này không nhỉ:
http://www.giaiphapexcel.com/forum/...em-công-thức-điền-số-với.&p=302160#post302160

 

[TrungChinhs]

Anh nghĩ xem liệu có thể áp dụng giống chiêu này không nhỉ:
http://www.giaiphapexcel.com/forum/...em-công-thức-điền-số-với.&p=302160#post302160

Đúng là "tà đạo" lợi dụng phương thức Find and Replace để điền công thức vào ô trống (khỏi cần Autofilter).
Vậy thì với bài của meocon249 ta làm như sau:
1. Bôi đen vùng dữ liệu của cột A
2. Nhấn Ctrl + H (để gọi Find and Replace)
3. Tại khung Replace with: nhập =indirect("b"&row()) và nhấn OK
4. Copy cột A và Paste Values (chuyển công thức sang giá trị).

 

[meocon249]

Em cám ơn các anh chị ạ.
Em vừa nhận được việc mới cần sd chiêu này. May quá. Hjhj.
Mà làm sao nhận được thông báo bằng mail khi có câu trả lởi cho đề tài của mình và nhận được câu hỏi mới của mọi người trên diễn đàn anh chị nhỉ?!

 

[meocon249]

Đúng là "tà đạo" lợi dụng phương thức Find and Replace để điền công thức vào ô trống (khỏi cần Autofilter).
Vậy thì với bài của meocon249 ta làm như sau:
1. Bôi đen vùng dữ liệu của cột A
2. Nhấn Ctrl + H (để gọi Find and Replace)
3. Tại khung Replace with: nhập =indirect("b"&row()) và nhấn OK
4. Copy cột A và Paste Values (chuyển công thức sang giá trị).

Em đã sử dụng được cả hai cách trên rồi ạ
Em cũng rất muốn biết cách làm bằng VBA

 

[Ba Tê]

Em đã sử dụng được cả hai cách trên rồi ạ
Em cũng rất muốn biết cách làm bằng VBA

Tôi cũng đang bập bõm học VBA, thử bài này xem chưa chắc đã ổn.

 

[meocon249]

Tôi cũng đang bập bõm học VBA, thử bài này xem chưa chắc đã ổn.

Mình làm được rồi nẻ
Có thể chú thích thêm ý nghĩa của mỗi dòng lệnh được không???!!! Vì mình mới tập học VBA nên chưa biết hết các lệnh.
Ví dụ (chú thích màu xanh nhé):
Option Explicit
Private Sub CommandButton1_Click()
Dim iI, nN As Double
nN = Application.WorksheetFunction.Max(Range("A35000").End(xlUp).Row, Range("B35000").End(xlUp).Row)
For iI = nN To 1 Step -1
'Nếu dòng A và iI trống thì điền giá trị của dòng bên cột B vào
If Range("A" & iI) = "" Then Range("A" & iI).Value = Range("B" & iI).Value
Next
End Sub

Many thankssssss.

 

[meocon249]

[Cám ơn đời mỗi sớm mai thức dậy
Còn có thêm ngày nữa để yêu thương]

 

[TrungChinhs]

Em đã sử dụng được cả hai cách trên rồi ạ
Em cũng rất muốn biết cách làm bằng VBA

Bạn thử code này nhé.

Sub Macro1()
On Error Resume Next
    With [a:a].SpecialCells(4) 
        .Value = "=RC[1]"
        .Value = .Value
    End With
End Sub

Code này sẽ thực hiện các công việc như cách làm tại # 2 nhưng chọn ô trống bắng SpecialCells thay cho Autofilter:
Tại cột A chọn các ô trống (SpecialCells(4) ) rồi điền công thức bằng cột B (ví dụ A5=B5) và cuối cùng là lấy giá trị (xóa công thức)

 

[ndu96081631]

Bạn thử code này nhé.

Sub Macro1()
On Error Resume Next
    With [a:a].SpecialCells(4) 
        .Value = "=RC[1]"
        .Value = .Value
    End With
End Sub

Code này sẽ thực hiện các công việc như cách làm tại # 2 nhưng chọn ô trống bắng SpecialCells thay cho Autofilter:
Tại cột A chọn các ô trống (SpecialCells(4) ) rồi điền công thức bằng cột B (ví dụ A5=B5) và cuối cùng là lấy giá trị (xóa công thức)

Em nghĩ code này không ổn.. Có chăng thì vầy sẽ được:

Sub Macro1()
  On Error Resume Next
  With [a:a]
    .SpecialCells(4).Value = "=RC[1]"
    .Value = .Value
  End With
End Sub

Anh thử lại xem

 

[TrungChinhs]

Em nghĩ code này không ổn.. Anh thử lại xem

@ndu Tôi thử lại rồi, vẫn OK mà.

 

[huuthang_bd]

@ndu Tôi thử lại rồi, vẫn OK mà.

Chắc bạn thử với dữ liệu có các giá trị ở cột B là giống nhau nên không thấy sự khác biệt. Vì code của bạn sẽ điền vào các ô trống ở cột A một giá trị giống nhau (Giá trị ở cột B tương ứng với ô trống đầu tiên ở cột A).

 

[TrungChinhs]

Ôi đúng như HuuThang nói. Xin lỗi các bạn.

 

[LION_PVT]

Xin hỏi, đấy là cách trộn 2 cột dữ liệu vào với nhau. Trong trường hợp tôi muốn trộn 3 cột (hoặc nhiều hơn) dữ liệu vào với nhau thì làm thế nào?