Giúp em nối liền các ô cách nhau bởi khoảng trắng theo cột

[thanh_trung_hp_03]

Em có cột các dữ liệu không liên tục nhau. cách nhau bởi các khoảng trắng. Các bác giúp em nối liên nhau dữ liệu lại ở 1 cột bên cạnh được ko a

 

[befaint]

Em có cột các dữ liệu không liên tục nhau. cách nhau bởi các khoảng trắng. Các bác giúp em nối liên nhau dữ liệu lại ở 1 cột bên cạnh được ko a

 

[thanh_trung_hp_03]

cám ơn bác. Em làm được rồi nhé

 

[phulien1902]

Em có cột các dữ liệu không liên tục nhau. cách nhau bởi các khoảng trắng. Các bác giúp em nối liên nhau dữ liệu lại ở 1 cột bên cạnh được ko a

Đơn giản thế này thôi:

Sub abc()
    Sheet1.Range("E14:F23").SpecialCells(2).Copy Sheet1.Range("I14")
End Sub

 

[nvh611]

Công thức này nếu như chèn dòng thì sẽ sai bác befaint ui

 

[befaint]

Công thức này nếu như chèn dòng thì sẽ sai bác befaint ui

Thì sao?

 

[ndu96081631]

Công thức này nếu như chèn dòng thì sẽ sai bác befaint ui

Ngoài ra còn chỗ nữa: Nếu dữ liệu rổng do công thức trả về (chứ không phải rổng "tự nhiên") thì công thức cũng không chính xác

 

[ndu96081631]

Em có cột các dữ liệu không liên tục nhau. cách nhau bởi các khoảng trắng. Các bác giúp em nối liên nhau dữ liệu lại ở 1 cột bên cạnh được ko a

Tôi hướng dẫn bạn 2 cách làm cực đơn giản:
1> Cách 1: Dùng AutoFilter lọc khoảng trắng rồi xóa dòng
2> Cách 2: Dùng công thức như sau:
- Tại D15 gõ công thức

=IF(E16="","",MAX(D$15:D15)+1)

rồi kéo fill xuống đến cuối dữ liệu
- Tại I15 gõ công thức =IFERROR(VLOOKUP(ROW($A1),$D$15:$F$101,2,0),"") rồi kéo fill xuống
- Tại J15 gõ công thức =IFERROR(VLOOKUP(ROW($A1),$D$15:$F$101,3,0),"") rồi kéo fill xuống
Xong!

 

[thanh_trung_hp_03]

Tôi hướng dẫn bạn 2 cách làm cực đơn giản:
1> Cách 1: Dùng AutoFilter lọc khoảng trắng rồi xóa dòng
2> Cách 2: Dùng công thức như sau:
- Tại D15 gõ công thức

=IF(E16="","",MAX(D$15:D15)+1)

rồi kéo fill xuống đến cuối dữ liệu
- Tại I15 gõ công thức =IFERROR(VLOOKUP(ROW($A1),$D$15:$F$101,2,0),"") rồi kéo fill xuống
- Tại J15 gõ công thức =IFERROR(VLOOKUP(ROW($A1),$D$15:$F$101,3,0),"") rồi kéo fill xuống
Xong!

Em cám ơn,
Nhưng bác ơi em dùng công thức của bác Befain cũng Được mà

 

[thanh_trung_hp_03]

Đơn giản thế này thôi:

Sub abc()
    Sheet1.Range("E14:F23").SpecialCells(2).Copy Sheet1.Range("I14")
End Sub

Cái này là VBA đúng không a. Em lại mù tịt về cai này. Cám ơn bác

 

[thanh_trung_hp_03]

Tôi hướng dẫn bạn 2 cách làm cực đơn giản:
1> Cách 1: Dùng AutoFilter lọc khoảng trắng rồi xóa dòng
2> Cách 2: Dùng công thức như sau:
- Tại D15 gõ công thức

=IF(E16="","",MAX(D$15:D15)+1)

rồi kéo fill xuống đến cuối dữ liệu
- Tại I15 gõ công thức =IFERROR(VLOOKUP(ROW($A1),$D$15:$F$101,2,0),"") rồi kéo fill xuống
- Tại J15 gõ công thức =IFERROR(VLOOKUP(ROW($A1),$D$15:$F$101,3,0),"") rồi kéo fill xuống
Xong!

Bác ơi công thức của bác hình như bị nhâm ở chỗ nào rồi thì phải. Em dùng không được.
Bác có thể Add luôn vào bảng tính giúp em ko ạ. em cám ơn

 

[Phuocam]

Em có cột các dữ liệu không liên tục nhau. cách nhau bởi các khoảng trắng. Các bác giúp em nối liên nhau dữ liệu lại ở 1 cột bên cạnh được ko a

Bạn dùng thử công thức này tại I14:

=IFERROR(INDEX(E:E,SMALL(IF(E$14:E$1001<>"",ROW(E$14:E$1001)),ROWS(I$14:I14))),"")

Kết thúc bằng Ctrl+Shift+Enter.

Kéo công thức qua bên phải và xuống dưới.

 

[ndu96081631]

Bác ơi công thức của bác hình như bị nhâm ở chỗ nào rồi thì phải. Em dùng không được.
Bác có thể Add luôn vào bảng tính giúp em ko ạ. em cám ơn

Đúng là có nhầm về vị trí dòng. Đúng ra phải là:

D14=IF(E14="","",MAX(D$13:D13)+1)

I14=IFERROR(VLOOKUP(ROW($A1),$D$14:$F$100,2,0),"")

J14=IFERROR(VLOOKUP(ROW($A1),$D$14:$F$100,3,0),"")

 

[thanh_trung_hp_03]

Đúng là có nhầm về vị trí dòng. Đúng ra phải là:

D14=IF(E14="","",MAX(D$13:D13)+1)

I14=IFERROR(VLOOKUP(ROW($A1),$D$14:$F$100,2,0),"")

J14=IFERROR(VLOOKUP(ROW($A1),$D$14:$F$100,3,0),"")

cảm ơn bác nhé. Lần này em làm được rồi a