Trang 1 của 3 123 CuốiCuối
Kết quả 1 đến 10 của 21

Chủ đề: Chuyển đồng hàng thành cột

  1. #1
    thienho Guest

    Chuyển đồng hàng thành cộ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 ạ

    STT
    Retailer

    1
    Lê Thị Thu Hằng


    SĐT: 84915111181


    ĐC: 50 Nguyễn Xí

    2
    Đặng Đức Thắng


    SĐT: 84977679770


    ĐC: Tổ 7 Xóm Đức Vinh ,Xã Hưng Lộc

    3
    Lê Thị Tuyết


    SĐT: 841677912886


    ĐC: Xóm 8 Xã Nghĩa Thuận- Thái Hòa-Nghệ An

    4
    Cao Tiến Dũng


    SĐT: 84912677633


    ĐC: 52 Đường Nguyễn Quốc Trị - Phường Hưng Phúc- Vinh-Nghệ An

  2. #2
    tungsontq Guest
    Trích dẫn Gửi bởi nhatduynnd
    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 ạ

    STT
    Retailer

    1
    Lê Thị Thu Hằng


    SĐT: 84915111181


    ĐC: 50 Nguyễn Xí

    2
    Đặng Đức Thắng


    SĐT: 84977679770


    ĐC: Tổ 7 Xóm Đức Vinh ,Xã Hưng Lộc

    3
    Lê Thị Tuyết


    SĐT: 841677912886


    ĐC: Xóm 8 Xã Nghĩa Thuận- Thái Hòa-Nghệ An

    4
    Cao Tiến Dũng


    SĐT: 84912677633


    ĐC: 52 Đường Nguyễn Quốc Trị - Phường Hưng Phúc- Vinh-Nghệ An
    Là như thế nào? kết quả ví dụ đâu? chẳng hiểu....

  3. #3
    ngocquangyb Guest
    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 ý?

  4. #4
    Ngày tham gia
    Aug 2015
    Bài viết
    0
    Trích dẫn Gửi bởi nhatduynnd
    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 ạ

    STT
    Retailer

    1
    Lê Thị Thu Hằng


    SĐT: 84915111181


    ĐC: 50 Nguyễn Xí

    2
    Đặng Đức Thắng


    SĐT: 84977679770


    ĐC: Tổ 7 Xóm Đức Vinh ,Xã Hưng Lộc

    3
    Lê Thị Tuyết


    SĐT: 841677912886


    ĐC: Xóm 8 Xã Nghĩa Thuận- Thái Hòa-Nghệ An

    4
    Cao Tiến Dũng


    SĐT: 84912677633


    ĐC: 52 Đường Nguyễn Quốc Trị - Phường Hưng Phúc- Vinh-Nghệ An
    Cách 1: Dùng công thức
    Công thức cho D2:

    Mã nguồn 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

  5. #5
    buycloud Guest
    Trích dẫn Gửi bởi nhatduynnd
    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 ạ

    STT
    Retailer

    1
    Lê Thị Thu Hằng


    SĐT: 84915111181


    ĐC: 50 Nguyễn Xí

    2
    Đặng Đức Thắng


    SĐT: 84977679770


    ĐC: Tổ 7 Xóm Đức Vinh ,Xã Hưng Lộc

    3
    Lê Thị Tuyết


    SĐT: 841677912886


    ĐC: Xóm 8 Xã Nghĩa Thuận- Thái Hòa-Nghệ An

    4
    Cao Tiến Dũng


    SĐT: 84912677633


    ĐC: 52 Đường Nguyễn Quốc Trị - Phường Hưng Phúc- Vinh-Nghệ An

    Mã nguồn 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 WithEnd Sub  
    Không biết có phải ý bạn thế này ko?

  6. #6
    huynq.231 Guest
    Trích dẫn Gửi bởi hhoang_56
    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
    Mã:
    Sub GPE_()
    Dim Arr, dArr, K, Dic, J, Tmp, N, Z As Byte
    Set Dic = CreateObject("scripting.Dictionary")
    With Sheet1
        Arr = .Range(.[A2], .[A65000].End(3)).Value
    ReDim dArr(1 To UBound(Arr), 1 To 100)
    For J = 1 To UBound(Arr)
        Tmp = Left(Arr(J, 1), 1)
        If Not Dic.exists(Tmp) Then
            K = K + 1
            Dic.Add Tmp, K
            dArr(K, 1) = Arr(J, 1)
        Else
            N = Dic.Item(Tmp)
            For Z = 1 To 100
                If dArr(N, Z) = "" Then
                    dArr(N, Z) = Arr(J, 1):        Exit For
                End If
            Next Z
        End If
    Next J
        .[D2:CY65000].ClearContents
        .[D2].Resize(K, 100) = dArr
    End With
    End Sub

  7. #7
    nguyenhungcase Guest
    Trích dẫn Gửi bởi doatmenhhon
    Bạn thử code củ chuối xuất sang sheet2 nhé:

    <div class="bbcode_container">
    <div class="bbcode_description">Code:
    </div>
    </div>
    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.

  8. #8
    Ngày tham gia
    Aug 2015
    Bài viết
    0
    Trích dẫn Gửi bởi doveandrose
    tào lao mía lao

    <div class="bbcode_container">
    <div class="bbcode_description">Code:
    </div>
    </div>
    Code chạy rất ok. Cám ơn bạn nhiều

  9. #9
    mewevn Guest
    Trích dẫn Gửi bởi comet_1701
    <div class="bbcode_container">
    <div class="bbcode_description">PHP Code:
    </div>
    </div>
    </div>
    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 ??

  10. #10
    tribobo1993 Guest
    Trích dẫn Gửi bởi hhoang_56
    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 ??
    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

Trang 1 của 3 123 CuốiCuối

Quyền viết bài

  • Bạn Không thể gửi Chủ đề mới
  • Bạn Không thể Gửi trả lời
  • Bạn Không thể Gửi file đính kèm
  • Bạn Không thể Sửa bài viết của mình
  •