Trang 2 của 3 Đầu tiênĐầu tiên 123 CuốiCuối
Kết quả 11 đến 20 của 21

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

  1. #11
    hohazz Guest
    Trích dẫn Gửi bởi comet_1701
    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
    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

  2. #12
    513minh89 Guest
    Trích dẫn Gửi bởi hhoang_56
    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ư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

  3. #13
    Ngày tham gia
    Aug 2015
    Bài viết
    0
    Mình gửi file, mong bạn giúp dùm

  4. #14
    Đừng Béo Nữa Guest
    Trích dẫn Gửi bởi hhoang_56
    Mình gửi file, mong bạn giúp dùm
    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

  5. #15
    ngocsonops Guest
    Trích dẫn Gửi bởi hpkhuong
    <div class="bbcode_container">
    <div class="bbcode_description">Code:
    </div>
    </div>
    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

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

  7. #17
    trungthanh3112 Guest
    Trích dẫn Gửi bởi hpkhuong
    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???
    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

  8. #18
    trandaubds 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
    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

  9. #19
    hoanghaidng 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
    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é

  10. #20
    muabui Guest
    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

Trang 2 của 3 Đầu tiênĐầu tiên 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
  •