Chuyển đồng hàng thành cột

Liên hệ QC
N

nhatduynnd

Thành viên mới
Tham gia
16/5/09
Bài viết
1
Được thích
0
Dear cả nhà
Em có một bẳng dữ liệu như file đính kèm
Em cần chuyển cứ 3 hàng lại chuyển thành cột rồi 3 hàng tiếp theo lại chuyển thành cột mà em không biết làm cách nào ngoài copy paste cả
Mà mỗi tháng em lại có một file như vậy
hic hic nhờ cả nhà nghiên cứu giúp em với ạ

[TABLE="width: 642"]
[TR]
[TD="align: left"]STT[/TD]
[TD="align: left"]Retailer[/TD]
[/TR]
[TR]
[TD="align: right"]1[/TD]
[TD="align: left"]Lê Thị Thu Hằng[/TD]
[/TR]
[TR]
[TD][/TD]
[TD="align: left"]SĐT: 84915111181[/TD]
[/TR]
[TR]
[TD][/TD]
[TD="align: left"]ĐC: 50 Nguyễn Xí[/TD]
[/TR]
[TR]
[TD="align: right"]2[/TD]
[TD="align: left"]Đặng Đức Thắng[/TD]
[/TR]
[TR]
[TD][/TD]
[TD="align: left"]SĐT: 84977679770[/TD]
[/TR]
[TR]
[TD][/TD]
[TD="align: left"]ĐC: Tổ 7 Xóm Đức Vinh ,Xã Hưng Lộc[/TD]
[/TR]
[TR]
[TD="align: right"]3[/TD]
[TD="align: left"]Lê Thị Tuyết[/TD]
[/TR]
[TR]
[TD][/TD]
[TD="align: left"]SĐT: 841677912886[/TD]
[/TR]
[TR]
[TD][/TD]
[TD="align: left"]ĐC: Xóm 8 Xã Nghĩa Thuận- Thái Hòa-Nghệ An[/TD]
[/TR]
[TR]
[TD="align: right"]4[/TD]
[TD="align: left"]Cao Tiến Dũng[/TD]
[/TR]
[TR]
[TD][/TD]
[TD="align: left"]SĐT: 84912677633[/TD]
[/TR]
[TR]
[TD][/TD]
[TD="align: left"]ĐC: 52 Đường Nguyễn Quốc Trị - Phường Hưng Phúc- Vinh-Nghệ An[/TD]
[/TR]
[/TABLE]
 

File đính kèm

Ba hàng thành cột là sao? Sao file bạn gửi không cho cái đúng ý bạn luôn để làm đỡ sai ý?
 
nhatduynnd đã viết:
Dear cả nhà
Em có một bẳng dữ liệu như file đính kèm
Em cần chuyển cứ 3 hàng lại chuyển thành cột rồi 3 hàng tiếp theo lại chuyển thành cột mà em không biết làm cách nào ngoài copy paste cả
Mà mỗi tháng em lại có một file như vậy
hic hic nhờ cả nhà nghiên cứu giúp em với ạ

[TABLE="width: 642"]
[TR]
[TD="align: left"]STT[/TD]
[TD="align: left"]Retailer[/TD]
[/TR]
[TR]
[TD="align: right"]1[/TD]
[TD="align: left"]Lê Thị Thu Hằng[/TD]
[/TR]
[TR]
[TD][/TD]
[TD="align: left"]SĐT: 84915111181[/TD]
[/TR]
[TR]
[TD][/TD]
[TD="align: left"]ĐC: 50 Nguyễn Xí[/TD]
[/TR]
[TR]
[TD="align: right"]2[/TD]
[TD="align: left"]Đặng Đức Thắng[/TD]
[/TR]
[TR]
[TD][/TD]
[TD="align: left"]SĐT: 84977679770[/TD]
[/TR]
[TR]
[TD][/TD]
[TD="align: left"]ĐC: Tổ 7 Xóm Đức Vinh ,Xã Hưng Lộc[/TD]
[/TR]
[TR]
[TD="align: right"]3[/TD]
[TD="align: left"]Lê Thị Tuyết[/TD]
[/TR]
[TR]
[TD][/TD]
[TD="align: left"]SĐT: 841677912886[/TD]
[/TR]
[TR]
[TD][/TD]
[TD="align: left"]ĐC: Xóm 8 Xã Nghĩa Thuận- Thái Hòa-Nghệ An[/TD]
[/TR]
[TR]
[TD="align: right"]4[/TD]
[TD="align: left"]Cao Tiến Dũng[/TD]
[/TR]
[TR]
[TD][/TD]
[TD="align: left"]SĐT: 84912677633[/TD]
[/TR]
[TR]
[TD][/TD]
[TD="align: left"]ĐC: 52 Đường Nguyễn Quốc Trị - Phường Hưng Phúc- Vinh-Nghệ An[/TD]
[/TR]
[/TABLE]
Nhấp chuột vào đây để mở rộng...
Cách 1: Dùng công thức
Công thức cho D2:
PHP: 
=INDEX($B$3:$B$600,ROW(C1)+(3*(COLUMNS($C$1:C$1)-1)))

Kéo xuống dưới 2 hàng nữa, sau đó tất cả kéo sang phải
 
Lần chỉnh sửa cuối:
nhatduynnd đã viết:
Dear cả nhà
Em có một bẳng dữ liệu như file đính kèm
Em cần chuyển cứ 3 hàng lại chuyển thành cột rồi 3 hàng tiếp theo lại chuyển thành cột mà em không biết làm cách nào ngoài copy paste cả
Mà mỗi tháng em lại có một file như vậy
hic hic nhờ cả nhà nghiên cứu giúp em với ạ

[TABLE="width: 642"]
[TR]
[TD="align: left"]STT[/TD]
[TD="align: left"]Retailer[/TD]
[/TR]
[TR]
[TD="align: right"]1[/TD]
[TD="align: left"]Lê Thị Thu Hằng[/TD]
[/TR]
[TR]
[TD][/TD]
[TD="align: left"]SĐT: 84915111181[/TD]
[/TR]
[TR]
[TD][/TD]
[TD="align: left"]ĐC: 50 Nguyễn Xí[/TD]
[/TR]
[TR]
[TD="align: right"]2[/TD]
[TD="align: left"]Đặng Đức Thắng[/TD]
[/TR]
[TR]
[TD][/TD]
[TD="align: left"]SĐT: 84977679770[/TD]
[/TR]
[TR]
[TD][/TD]
[TD="align: left"]ĐC: Tổ 7 Xóm Đức Vinh ,Xã Hưng Lộc[/TD]
[/TR]
[TR]
[TD="align: right"]3[/TD]
[TD="align: left"]Lê Thị Tuyết[/TD]
[/TR]
[TR]
[TD][/TD]
[TD="align: left"]SĐT: 841677912886[/TD]
[/TR]
[TR]
[TD][/TD]
[TD="align: left"]ĐC: Xóm 8 Xã Nghĩa Thuận- Thái Hòa-Nghệ An[/TD]
[/TR]
[TR]
[TD="align: right"]4[/TD]
[TD="align: left"]Cao Tiến Dũng[/TD]
[/TR]
[TR]
[TD][/TD]
[TD="align: left"]SĐT: 84912677633[/TD]
[/TR]
[TR]
[TD][/TD]
[TD="align: left"]ĐC: 52 Đường Nguyễn Quốc Trị - Phường Hưng Phúc- Vinh-Nghệ An[/TD]
[/TR]
[/TABLE]
Nhấp chuột vào đây để mở rộng...
PHP: 
Sub Buoc_Nhay()
    Dim Sarr, Darr, i As Long, k As Long
    With Sheet2
        Sarr = .Range(.[B2], .[B65000].End(xlUp)).Value2
    End With
    ReDim Darr(1 To UBound(Sarr), 1 To 3)
    For i = 1 To UBound(Sarr) Step 3
        k = k + 1
        Darr(k, 1) = Sarr(i, 1)
        Darr(k, 2) = Sarr(i + 1, 1)
        Darr(k, 3) = Sarr(i + 2, 1)
    Next i
    With Sheet2
        .[D2:F65000].ClearContents
        If k Then
            .[D2].Resize(k, 3).Value = Darr
        End If
    End With
End Sub
Không biết có phải ý bạn thế này ko?
 

File đính kèm

comet_1701 đã viết:
PHP: 
Sub Buoc_Nhay()
    Dim Sarr, Darr, i As Long, k As Long
    With Sheet2
        Sarr = .Range(.[B2], .[B65000].End(xlUp)).Value2
    End With
    ReDim Darr(1 To UBound(Sarr), 1 To 3)
    For i = 1 To UBound(Sarr) Step 3
        k = k + 1
        Darr(k, 1) = Sarr(i, 1)
        Darr(k, 2) = Sarr(i + 1, 1)
        Darr(k, 3) = Sarr(i + 2, 1)
    Next i
    With Sheet2
        .[D2:F65000].ClearContents
        If k Then
            .[D2].Resize(k, 3).Value = Darr
        End If
    End With
End Sub
Không biết có phải ý bạn thế này ko?
Nhấp chuột vào đây để mở rộng...

Xin hỏi, nếu trong trường hợp chuyển thành 28 cột thì phải thay đổi code này như thế nào ??
 
hhoang_56 đã viết:
Xin hỏi, nếu trong trường hợp chuyển thành 28 cột thì phải thay đổi code này như thế nào ??
Nhấp chuột vào đây để mở rộng...
Chưa hiểu bạn muốn hỏi cái gì, vẫn file của chủ topic cũ hay thế nào, bạn nên có file đính kèm và kết quả mong muốn, mọi người mới hiểu được và có thể giúp bạn được
 
comet_1701 đã viết:
Chưa hiểu bạn muốn hỏi cái gì, vẫn file của chủ topic cũ hay thế nào, bạn nên có file đính kèm và kết quả mong muốn, mọi người mới hiểu được và có thể giúp bạn được
Nhấp chuột vào đây để mở rộng...

Mình hỏi cái code của bạn, mình muốn sử dụng để chuyển thành 28 cột, tương tự như file của chủ topic thì phải thay đổi như thế nào
 
hhoang_56 đã viết:
Mình hỏi cái code của bạn, mình muốn sử dụng để chuyển thành 28 cột, tương tự như file của chủ topic thì phải thay đổi như thế nào
Nhấp chuột vào đây để mở rộng...
Nhưng vấn đề là 28 cột như thế nào, bạn nói thể thì không hiểu được, vì hình như chủ topic chỉ muốn 3 cột, sao bạn ko lấy file đó, và nêu kết quả mong muốn trong file
 
hpkhuong đã viết:
Mã: 
Option Explicit
Sub GPE()
Dim Arr, dArr, I&, J&, K&
With Sheet1
        Arr = .Range(.[A2], .[A65000].End(3)).Value2
ReDim dArr(1 To 65000, 1 To 28)
    For I = 1 To UBound(Arr) Step 28
        K = K + 1
        For J = 1 To 28
            dArr(K, J) = Arr(I - 1 + J, 1)
        Next J
    Next I
        .[D2:AE65000].ClearContents
        If K Then .[D2].Resize(K, 28).Value = dArr
End With
End Sub
Nhấp chuột vào đây để mở rộng...

Cám ơn bạn. Tương đối đúng yêu cầu.
Trong trường hợp nhóm C chỉ có 25 dòng C1 -> C25 (chứ không phải C1 ->C28) thì code bị lỗi
 
hpkhuong đã viết:
Bạn đưa sao làm vậy chứ. Bộ với yêu cầu trước bạn có nói tới số 25 ah? Bạn đưa ra số 28. Giờ code cho bạn số 28.

GIờ bạn đem số 28 so với số 25 ==> Bạn phán code lỗi.

Bạn thử lấy con Heo so với con Bò xem nó có khác nhau không???
Nhấp chuột vào đây để mở rộng...

Mong bạn đừng giận. Trong file của mình, mình có ghi là dữ liệu ở cột A có thể khoảng 2000 dòng. Mình đâu có nói dữ liệu là bội số của 28 đâu
 
hhoang_56 đã viết:
Mong bạn đừng giận. Trong file của mình, mình có ghi là dữ liệu ở cột A có thể khoảng 2000 dòng. Mình đâu có nói dữ liệu là bội số của 28 đâu
Nhấp chuột vào đây để mở rộng...
Bạn thử code củ chuối xuất sang sheet2 nhé:
Mã: 
Sub Chuyen()  
With Sheets("Sheet2").Range("A2").Resize((Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row - 1) / 28, 28)
    .Formula = "=INDEX('Sheet1'!$A:$A,28*ROWS(A$2:A2)-27+COLUMNS($A2:A2))"
    .Value = .Value
  End With
End Sub
 
hhoang_56 đã viết:
Mong bạn đừng giận. Trong file của mình, mình có ghi là dữ liệu ở cột A có thể khoảng 2000 dòng. Mình đâu có nói dữ liệu là bội số của 28 đâu
Nhấp chuột vào đây để mở rộng...
cái này mình cũng đoán thế nên viết code theo hướng bạn nói nhưng chưa ra kết quả. Thôi đi ăn cơm đã, nếu không ra thì có thành viên khác giúp bạn nhé
 
tào lao mía lao
Mã: 
Public Sub hell()
Dim arr, dArr, r As Long, sCo(1 To 26) As Long, i As Byte, tMa As Long
With Sheet1
    arr = .Range(.[A2], .[A65000].End(xlUp)).Value
    ReDim dArr(1 To 26, 1 To UBound(arr))
    For r = 1 To UBound(arr) Step 1
        i = Asc(Left(arr(r, 1), 1)) - 64
        sCo(i) = sCo(i) + 1
        dArr(i, sCo(i)) = arr(r, 1)
        If tMa < sCo(i) Then tMa = sCo(i)
    Next
    .Range("D2").Resize(26, 200).ClearContents
    .Range("D2").Resize(26, tMa).Value = dArr
End With
End Sub
 
doatmenhhon đã viết:
Bạn thử code củ chuối xuất sang sheet2 nhé:
Mã: 
Sub Chuyen()  
With Sheets("Sheet2").Range("A2").Resize((Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row - 1) / 28, 28)
    .Formula = "=INDEX('Sheet1'!$A:$A,28*ROWS(A$2:A2)-27+COLUMNS($A2:A2))"
    .Value = .Value
  End With
End Sub
Nhấp chuột vào đây để mở rộng...

Dữ liệu nằm trong khoảng C1 --> C13 thì code chạy không đúng.
Nhưng dữ liệu từ C1 --> C14 trở lên thì code chạy đúng.
 
doveandrose đã viết:
tào lao mía lao
Mã: 
Public Sub hell()
Dim arr, dArr, r As Long, sCo(1 To 26) As Long, i As Byte, tMa As Long
With Sheet1
    arr = .Range(.[A2], .[A65000].End(xlUp)).Value
    ReDim dArr(1 To 26, 1 To UBound(arr))
    For r = 1 To UBound(arr) Step 1
        i = Asc(Left(arr(r, 1), 1)) - 64
        sCo(i) = sCo(i) + 1
        dArr(i, sCo(i)) = arr(r, 1)
        If tMa < sCo(i) Then tMa = sCo(i)
    Next
    .Range("D2").Resize(26, 200).ClearContents
    .Range("D2").Resize(26, tMa).Value = dArr
End With
End Sub
Nhấp chuột vào đây để mở rộng...

Code chạy rất ok. Cám ơn bạn nhiều
 
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

dinhnhat91
  • Question Question
VBA Lỗi runtime error 9 subscript out of range
Trả lời
1
Đọc
24
HUONGHCKT
H
GPE-Trợ Lý
[GPE] TALK SHOW EXCEL TRONG SẢN XUẤT
    • Thích
Trả lời
1
Đọc
483
PhanTuHuong
PhanTuHuong
Việt Nguyễn 86
Excel hay bị tắt đột ngột và hiện trang trắng khi làm việc
Trả lời
0
Đọc
44
Việt Nguyễn 86
Việt Nguyễn 86
K
Mong giúp dữ liệu từ trang web sang excel
Trả lời
0
Đọc
47
khanhvinhdai1
K
T
Bảng tính trợ cấp tinh giản biên chế theo NĐ 108
    • Thích
Trả lời
3
Đọc
1K
trung_bhxh
T
T
Bảng tính trợ cấp theo Nghị định 178 và tính lương hưu
Trả lời
0
Đọc
57
trung_bhxh
T
L
Viết phần mềm đánh lô bằng Visual Basic
    • Thích
2 3
Trả lời
52
Đọc
103K
khanhvinhdai1
K
Mewwo98
Thay dấu ngăn cách sau chữ số hàng nghìn, hàng triệu, hàng tỷ trong Mail Merge
Trả lời
5
Đọc
102
ptm0412
ptm0412
Huyen9
Lỗi không mailings được.
Trả lời
3
Đọc
78
vanle33
vanle33
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba
    • Thích
    • Yêu thích
    • Cảm ơn
14 15 16
Trả lời
310
Đọc
23K
kunkoi9390
K
K
Có ai giúp mình lấy kết quả xổ số miền nam về file excel
Trả lời
0
Đọc
40
khanhvinhdai1
K
ptm0412
  • Question Question
Lấy dữ liệu web nhiều trang về file Excel bằng Power Query
    • Thích
Trả lời
5
Đọc
2K
ptm0412
ptm0412
H
Công thức tìm kết quả
Trả lời
11
Đọc
123
VetMini
V
V
Hàm dò tìm lấy giá trị của lần xuất hiện thứ n trong excel.
Trả lời
9
Đọc
1K
VetMini
V
N
Nhờ các anh chỉ chỉnh lỗi giúp em với ạ, em cảm ơn ạ.
Trả lời
3
Đọc
82
minhminh27
minhminh27
T
File quản lý thiết bị trong trường học!
Trả lời
4
Đọc
138
VetMini
V
Xoainon3005
Xin file mẫu kế hoạch sản xuất theo tháng ngành động cơ
Trả lời
1
Đọc
126
VetMini
V
Momominh
Sơ đồ hàng hóa trong Container
Trả lời
3
Đọc
133
VetMini
V
hungtin1997
  • Question Question
[Hỏi] Tạo Hyperlink đến ô chạy ngang theo cột
Trả lời
6
Đọc
416
A HOANG 620
A
LuuAnh980
Add in tạo QR code miễn phí.
Trả lời
14
Đọc
567
htin1997
htin1997
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Đếm ngược thời gian

000
Ngày
00
Giờ
00
phút
00
giây
Chúc mừng năm mới Ất Tỵ 2025
Back
Top Bottom