Nhờ mọi người chỉ giúp mình cách làm File chuyển từ Cột sang Hàng của File Excel ! (1 người xem)

[lenguyenvu07]

Hi cả nhà,

Mọi người Nhờ mọi người chỉ giúp mình cách làm File chuyển từ Cột sang Hàng của File Excel đính kèm một cách tối ưu với ạ.

Ý của mình muốn chuyển E2, E3 sang F1, G1 ; H2, H3 sang I1, J1; tương tự cho dãy đó.
E5, E6 sang F4, G4....
Nói chung là chuyển đồng loạt như vậy.

 

[lenguyenvu07]

Hi cả nhà,

Mọi người Nhờ mọi người chỉ giúp mình cách làm File chuyển từ Cột sang Hàng của File Excel đính kèm một cách tối ưu với ạ.

Ý của mình muốn chuyển E2, E3 sang F1, G1 ; H2, H3 sang I1, J1; tương tự cho dãy đó.
E5, E6 sang F4, G4....
Nói chung là chuyển đồng loạt như vậy.

File đính kèm: View attachment 93968

 

[vanle33]

Hi cả nhà,

Mọi người Nhờ mọi người chỉ giúp mình cách làm File chuyển từ Cột sang Hàng của File Excel đính kèm một cách tối ưu với ạ.

Ý của mình muốn chuyển E2, E3 sang F1, G1 ; H2, H3 sang I1, J1; tương tự cho dãy đó.
E5, E6 sang F4, G4....
Nói chung là chuyển đồng loạt như vậy.

Bạn dùng chức năng Transpose trong Paste Special chưa?
File đính kèm của bạn bị lỗi không tải được!

 

[lenguyenvu07]

Cái đó mình đã dùng rồi bạn ah. Nhưng mình cần chuyển nhiều cùng lúc và file không liền nhau mà cách hở nên hỏi có cách nào khác không.

 

[Quang_Hải]

Cái đó mình đã dùng rồi bạn ah. Nhưng mình cần chuyển nhiều cùng lúc và file không liền nhau mà cách hở nên hỏi có cách nào khác không.

Nếu bạn biết xài code thì copy code này vào sẽ giải quyết được vấn đề của bạn

Sub tach()
Dim dl(), i, j
dl = Range([E2], [E65536].End(3)).Resize(, 18).Value
For i = 1 To UBound(dl) - 2 Step 3
   For j = 2 To 18 Step 3
      dl(i, j) = dl(i + 1, j - 1)
      dl(i, j + 1) = dl(i + 2, j - 1)
   Next
Next
[E2].Resize(UBound(dl), 18) = dl
End Sub

 

[Good-Luck]

Nếu bạn biết xài code thì copy code này vào sẽ giải quyết được vấn đề của bạn

Sub tach()
Dim dl(), i, j
dl = Range([E2], [E65536].End(3)).Resize(, 18).Value
For i = 1 To UBound(dl) - 2 Step 3
   For j = 2 To 18 Step 3
      dl(i, j) = dl(i + 1, j - 1)
      dl(i, j + 1) = dl(i + 2, j - 1)
   Next
Next
[E2].Resize(UBound(dl), 18) = dl
End Sub

anh hải ơi nó có 43 cột , chắc số 18 phải thay đổi bẳng 39

 

[Quang_Hải]

anh hải ơi nó có 43 cột , chắc số 18 phải thay đổi bẳng 39

Ai biết chủ topic muốn tới cột nào đâu. Làm thí như vậy coi chủ topic có ý có ý kiến gì không.

 

[olegtran]

Hi cả nhà,

Mọi người Nhờ mọi người chỉ giúp mình cách làm File chuyển từ Cột sang Hàng của File Excel đính kèm một cách tối ưu với ạ.

Ý của mình muốn chuyển E2, E3 sang F1, G1 ; H2, H3 sang I1, J1; tương tự cho dãy đó.
E5, E6 sang F4, G4....
Nói chung là chuyển đồng loạt như vậy.

Hình như mọi người "trầm trọng" hóa vấn đề lên thì phải:
Tôi thử làm kiểu "bình dân": F2: =E3, G2: =E4, F3,G3 để trống. Copy cụm F2:G3 xuống tận cuối bảng là xong.
Tương tự làm cột I,J.
Có phải chủ topic muốn vậy k nhỉ?

 

[Quang_Hải]

Hình như mọi người "trầm trọng" hóa vấn đề lên thì phải:
Tôi thử làm kiểu "bình dân": F2: =E3, G2: =E4, F3,G3 để trống. Copy cụm F2:G3 xuống tận cuối bảng là xong.
Tương tự làm cột I,J.
Có phải chủ topic muốn vậy k nhỉ?

Bạn thử nhập bằng công thức như bạn gợi ý vào file và gởi lên mọi người tham khảo với.

Nếu muốn công thức thì thế này đây, nếu cấu trúc dữ liệu giống y vậy

F2=IF(LEN($B2)=6,E3,"")
G2=IF(LEN($B2)=6,E4,"")

 

[lenguyenvu07]

Ai biết chủ topic muốn tới cột nào đâu. Làm thí như vậy coi chủ topic có ý có ý kiến gì không.

Tks mọi người nhiều. Em cần làm hết tất cả các cột luôn. Hôm qua tới h bận quá h mới vào forum lại. Để em thử xem sao.

 

[lenguyenvu07]

Bạn thử nhập bằng công thức như bạn gợi ý vào file và gởi lên mọi người tham khảo với.

Nếu muốn công thức thì thế này đây, nếu cấu trúc dữ liệu giống y vậy

F2=IF(LEN($B2)=6,E3,"")
G2=IF(LEN($B2)=6,E4,"")

Em đã thử làm với công thức của anh. EM thấy nó đơn giản hơn nhiều so với dùng Code. Với lại các ô không cần thiết có thể đỡ bớt dữ liệu khi thao tác xong có thể xóa bỏ đơn giản.

 

[Quang_Hải]

Em đã thử làm với công thức của anh. EM thấy nó đơn giản hơn nhiều so với dùng Code. Với lại các ô không cần thiết có thể đỡ bớt dữ liệu khi thao tác xong có thể xóa bỏ đơn giản.

Đã có đáp án trúng rồi còn post cái file lên chi nữa vậy?

 

[lenguyenvu07]

Đã có đáp án trúng rồi còn post cái file lên chi nữa vậy?

Em post cho mọi người xem ý mà. Tks anh nhiều nha. Anh có thể giải thích giúp em vì sao m dùng hàm LEN ở đây và vì sao F3 và F4 lại không có giá trị ko a ? E vẫn chưa hiểu lắm

 

[Quang_Hải]

Em post cho mọi người xem ý mà. Tks anh nhiều nha. Anh có thể giải thích giúp em vì sao m dùng hàm LEN ở đây và vì sao F3 và F4 lại không có giá trị ko a ? E vẫn chưa hiểu lắm

Eo ơi cái hàm căn bản nhất rồi mà vẫn chưa hiểu thì không đặng rồi.
Công thức đó có nghĩa là: Nếu tổng các ký tự của B2 là 6 thì lấy giá trị của E3, nếu không phải thì trả về chuỗi rỗng.