Xin hỏi cách chuyển đổi data từ dọc sang ngang (2 người xem)

[mrt1212]

Em đang có một số data thông tin doanh nghiệp, nó đang theo hàng dọc, em muốn chuyển nó sang hàng ngang, anh em có cách nào chuyển giúp em với, chứ ngồi copy, paste thủ công chắc em chết wa

 

[bebo021999]

Xem file đính kèm nhé

 

[mrt1212]

Thanks bebo021999 nha!
nhưng bebo021999 ơi! có thể giải thích cho mình được không mình muốn hiểu rõ một chút về công thức này.

 

[traibiusim]

Em đang có một số data thông tin doanh nghiệp, nó đang theo hàng dọc, em muốn chuyển nó sang hàng ngang, anh em có cách nào chuyển giúp em với, chứ ngồi copy, paste thủ công chắc em chết wa

Bạn chỉ cần Copy data về thông tin DN đó sau đó Paste Special chọn Transpose là được mà.

 

[bebo021999]

Thanks bebo021999 nha!
nhưng bebo021999 ơi! có thể giải thích cho mình được không mình muốn hiểu rõ một chút về công thức này.

Không thể 1 sớm 1 chiều mà giải thích chi tiết được bạn à
Mình giải thích tổng quát nhé:
* Quan sát: Các nhóm thông tin phân cách nhau bằng 1 dòng trống. Các tiêu đề (Email, Địa chỉ,...) có dấu 2 chấm phân cách
* Phân tích: Mỗi nhóm thông tin về 1 công ty nằm ở các vùng khác nhau. Chuyển đổi sang bảng nằm ngang sẽ nằm trên 1 dòng.
* Thuật toán: Tại mỗi dòng trên bảng kết quả, tạo 2 name động để đánh dấu vị trí bắt đầu (vitri1), vị trí kết thúc (vitri2) trên bảng nguồn, tích hợp vào name vitri. Name này sẽ thay đổi giá trị ứng với mỗi dòng của mỗi công ty.
Việc còn lại là dùng các hàm của excel để tạo ra công thức tổng hợp trích xuất ra kết quả.

 

[hungthinhphatco]

mình cũng có 1 công việc chuyển đổi giống như vậy nhưng rắc rối hơn chút, nhờ bạn chuyển đổi từ hàng ngang sang hàng dọc dùm mình nhé

View attachment danh sach cong ty moi thanh lap.xlsx

 

[hanhpptc]

mình cũng có 1 công việc chuyển đổi giống như vậy nhưng rắc rối hơn chút, nhờ bạn chuyển đổi từ hàng ngang sang hàng dọc dùm mình nhé

View attachment 84849

Bạn xem File đính kèm nhé:
Code:
Sub Chuyen_Cot_Dong()
DC = Sheet1.Range("A1000000").End(xlUp).Row
Sheet1.Range("D2:L" & DC).ClearContents
TT = 1
Dong = 2
For I = 1 To DC Step 14
Sheet1.Range("D" & Dong).Value = TT
Sheet1.Range("E" & Dong).Value = Sheet1.Range("A" & I).Value
Sheet1.Range("F" & Dong).Value = Sheet1.Range("A" & I + 2).Value
Sheet1.Range("G" & Dong).Value = Sheet1.Range("B" & I + 3).Value
Sheet1.Range("H" & Dong).Value = Sheet1.Range("B" & I + 4).Value
Sheet1.Range("I" & Dong).Value = Sheet1.Range("B" & I + 5).Value
Sheet1.Range("J" & Dong).Value = Sheet1.Range("B" & I + 6).Value
Sheet1.Range("K" & Dong).Value = Sheet1.Range("B" & I + 11).Value
Sheet1.Range("L" & Dong).Value = Sheet1.Range("B" & I + 12).Value
TT = TT + 1
Dong = Dong + 1
Next I
End Sub

 

[hungthinhphatco]

Bạn xem File đính kèm nhé:
Code:
Sub Chuyen_Cot_Dong()
DC = Sheet1.Range("A1000000").End(xlUp).Row
Sheet1.Range("D2:L" & DC).ClearContents
TT = 1
Dong = 2
For I = 1 To DC Step 14
Sheet1.Range("D" & Dong).Value = TT
Sheet1.Range("E" & Dong).Value = Sheet1.Range("A" & I).Value
Sheet1.Range("F" & Dong).Value = Sheet1.Range("A" & I + 2).Value
Sheet1.Range("G" & Dong).Value = Sheet1.Range("B" & I + 3).Value
Sheet1.Range("H" & Dong).Value = Sheet1.Range("B" & I + 4).Value
Sheet1.Range("I" & Dong).Value = Sheet1.Range("B" & I + 5).Value
Sheet1.Range("J" & Dong).Value = Sheet1.Range("B" & I + 6).Value
Sheet1.Range("K" & Dong).Value = Sheet1.Range("B" & I + 11).Value
Sheet1.Range("L" & Dong).Value = Sheet1.Range("B" & I + 12).Value
TT = TT + 1
Dong = Dong + 1
Next I
End Sub

Hàm này chạy đến thông tin cty thứ 37 thì dừng, nếu mình muốn cho nó chạy đến dòng cuối cùng của sheet thì làm thế nào hả bạn, mình ko rành hàm nên nhờ bạn hướng dẫn giúp

 

[hanhpptc]

Hàm này chạy đến thông tin cty thứ 37 thì dừng, nếu mình muốn cho nó chạy đến dòng cuối cùng của sheet thì làm thế nào hả bạn, mình ko rành hàm nên nhờ bạn hướng dẫn giúp

Đây là thủ tục chưa không phải hàm. Mình viết chạy đến bản ghi cuối cùng đấy chứ, vì dữ liệu của bạn đến đó nên vậy, bạn thêm dữ liệu xem sao