Hỏi cách Dán hoán đổi 1 cột thành cell ngang phân cách nhau 1 cell ?

[thomtv]

Các pro hướng dẫm dùm có cách nào dán hoán đổi 1 cột có nhiều cell thành các cell hàng ngang nhưng mỗi cell phân cách nhau 1 cell. có thể hướng dẫn luôn dùm nếu phân cách nhau nhiều cell thì làm như thế nào? nếu được xin các pro viết luôn dùm đoạn code. có file mẫu gửi kèm
Chân thành cảm ơn!

 

[concogia]

Các pro hướng dẫm dùm có cách nào dán hoán đổi 1 cột có nhiều cell thành các cell hàng ngang nhưng mỗi cell phân cách nhau 1 cell. có thể hướng dẫn luôn dùm nếu phân cách nhau nhiều cell thì làm như thế nào? nếu được xin các pro viết luôn dùm đoạn code. có file mẫu gửi kèm
Chân thành cảm ơn!

Dùng VBA nhé
Cách làm:
1- Bấm vào con meomeo ==> xuất hiện một bảng ==> chọn vùng muốn copy (bằng chuột hay nhập trực tiếp cũng được)==> Enter
2- Xuất hiện bảng thứ 2, nhập số khoảng trống muốn chèn ==> Enter
3- Xuất hiện bảng thứ 3 ==> chọn cell đầu tiên muốn dán dữ liệu chuyểng sang ngang ==> Enter ......là xong
Thân

 

[thomtv]

Xin Cảm ơn Concogia rất nhiều, nhưng ý mình muốn cách nhau 1 cell hay nhiều cell, nhưng phải giữ nguyên dữ liệu trong các cell được cách, cái của bác là nó xóa mất các cell được cách. Rất mong được sự giúp đỡ của bạn. chân thành cảm ơn.

 

[concogia]

Xin Cảm ơn Concogia rất nhiều, nhưng ý mình muốn cách nhau 1 cell hay nhiều cell, nhưng phải giữ nguyên dữ liệu trong các cell được cách, cái của bác là nó xóa mất các cell được cách. Rất mong được sự giúp đỡ của bạn. chân thành cảm ơn.

Không hiểu, mình làm đúng như thí dụ kết quả trong bài của bạn mà

nhưng phải giữ nguyên dữ liệu trong các cell được cách, cái của bác là nó xóa mất các cell được cách.

cái này là sao vậy bạn, bạn giải thích hoặc làm nhập kết quả vào trong file xem sao
Thân

 

[thomtv]

Một lần nữa xin cảm ơn sự nhiệt tình của bạn đã giúp mình. bạn xem file mình gửi kèm, rồi giúp mình nhe!
View attachment chuyenngangdoc.xls

 

[thomtv]

Ôi xin lỗi, mình đã úp nhầm file cũ.
View attachment chuyenngangdoc.xls

 

[concogia]

Ôi xin lỗi, mình đã úp nhầm file cũ.
View attachment 84887

Dữ liệu này mới cách 2, nếu cách nhiều hơn thì cấu trúc ra sao vậy bạn ??? không đưa các trường hợp một lần đỡ sửa
Thân

 

[thomtv]

cách nhiều hơn thì các cell vẫn giữ khoảng cách bằng nhau VD: 1.....2.....3..... ("1,2,3" là cell dữ liệu cần coppy, "....." là khoảng cách các cell đều bằng nhau, nhưng các cell "....." này vẫn phải giữ nguyên dữ liệu).
Cảm ơn!

 

[thomtv]

Concogia ơi! bạn có thể sửa lại dùm mình là sau khi coppy vào thì lấy ngay cell chọn đầu tiên vùng muốn dẫn. Mình mới học làm quen với code nên không biết viết, có phải sửa lại đoạn code này đúng ko bạn nếu bạn.
[Den].Offset(, Khoang * I - 1) = Vung(I)
Nếu thời gian thì bạn giải thích dùm mình đoạn code luôn nhe. cảm ơn bạn nhiều.

 

[thomtv]

Mình đã biết rồi có thể sửa lại đoạn code như vầy là được:
[Den].Offset(, (I * Khoang) - Khoang) = Vung(I)
cám ơn bạn Concogia đã giúp mình.

 

[ptm0412]

Phương pháp dùng công thức:

ô đầu kết quả =IF(MOD(COLUMNS($A:A)-1,$B$1+1)=0,OFFSET($A$1,(COLUMNS($A:A)-1)/($B$1+1),0),"")

Fill ngang

với A1 là ô bắt đầu của cột dữ liệu nguồn, B1 là số ô trắng xen giữa.

 

[thomtv]

các bạn có thể giúp mình viết code để chuyển vào addin file này được không. xin cám ơn.
View attachment chuyenngangdoc123.xls