Làm sao chuyển tất cả các từ trong ô vào 1 cột

[lian109]

Mọi người có thể giúp mình một vấn đề nhé.
Cảm ơn mọi người. Có thể mở file đính kèm , mình có ghi vấn đề trong đó. Cũng khá đơn giản.
Đa tạ.

 

[khoavu87]

Mọi người có thể giúp mình một vấn đề nhé.
Cảm ơn mọi người. Có thể mở file đính kèm , mình có ghi vấn đề trong đó. Cũng khá đơn giản.
Đa tạ.

Sao không dùng cột phụ nối tất cả chúng lại, sau đó copy lại cột A?
Ví dụ:
=+A1&B1&C1&D1&E1&F1
Hoặc:
=+CONCATENATE(A2,B2,C2,D2,E2,F2)

 

[Luc Van]

Sao không dùng cột phụ nối tất cả chúng lại, sau đó copy lại cột A?
Ví dụ:
=+A1&B1&C1&D1&E1&F1
Hoặc:
=+CONCATENATE(A2,B2,C2,D2,E2,F2)

Hình như không phải vậy đâu. mà ý tác giả muốn chuyển về 1 cột a nhưng phải hết vần A rồi đến vần B rồi tới C, D, ...

 

[lian109]

Mình muốn chuyển tất cả về một cột giống bạn Luc Van nói đó. Cảm ơn mọi người.

 

[vodoi2x]

Mình muốn chuyển tất cả về một cột giống bạn Luc Van nói đó. Cảm ơn mọi người.

Vậy thì tại A26 bạn nhập công thức
=INDEX($B$1:$F$25,MOD(ROWS($1:1)-1,25)+1,INT((ROWS($1:1)-1)/25)+1)

sau đó cứ kéo copy xuống A27, A28,....., đến bao giờ hết số từ thì thôi, thì ta được cột A là các từ xếp lại, rồi copy -->paste value đi đâu đó thì tuỳ

lưu ý 25 bôi đỏ trên chính là số dòng chuẩn theo vùng $B$1:$F$25 đó -- thay đổi số này cho số dòng của số liệu thực tế

 

[Ba Tê]

Mình muốn chuyển tất cả về một cột giống bạn Luc Van nói đó. Cảm ơn mọi người.

Dữ liệu lớn thì nên dùng VBA đi, bấm nút 1 phát là xong !
Miễn sao biết cách làm cho macros hoạt động.

Private Sub CommandButton1_Click()
Dim Rng(), Arr(), I As Long, J As Long, K As Long
    Rng = Sheet1.[A3].CurrentRegion.Value
ReDim Arr(1 To UBound(Rng, 1) * UBound(Rng, 2), 1 To 1)
    For I = 1 To UBound(Rng, 2)
        For J = 1 To UBound(Rng, 1)
            If Rng(J, I) <> "" Then
                K = K + 1
                Arr(K, 1) = Rng(J, I)
            End If
        Next J
    Next I
Sheet1.[A3].CurrentRegion.ClearContents
If K Then Sheet1.[A3].Resize(K) = Arr
End Sub

 

[hoangvuluan]

Dữ liệu lớn thì nên dùng VBA đi, bấm nút 1 phát là xong !

Bác Ba Tê à, dữ liệu lớn vừa vừa thì dùng array nhưng dữ liệu lớn quá thì hình như không dùng được. Nếu nhớ không nhầm, số biến cục bộ của 1 hàm không vượt quá 64K, nghĩa là không quá 65000 biến. Nếu từ điển có số từ lớn hơn giới hạn này thì sẽ báo lỗi đó bác.
(Hôm trước test thử sub lấy K phần tử ngẫu nhiên từ tập N phần tử với N=66000 nghìn thì lỗi)
Do đó có thể dùng cách copy / paste cho nó "lành".
Thân!

 

[Ba Tê]

Bác Ba Tê à, dữ liệu lớn vừa vừa thì dùng array nhưng dữ liệu lớn quá thì hình như không dùng được. Nếu nhớ không nhầm, số biến cục bộ của 1 hàm không vượt quá 64K, nghĩa là không quá 65000 biến. Nếu từ điển có số từ lớn hơn giới hạn này thì sẽ báo lỗi đó bác.
(Hôm trước test thử sub lấy K phần tử ngẫu nhiên từ tập N phần tử với N=66000 nghìn thì lỗi)
Do đó có thể dùng cách copy / paste cho nó "lành".
Thân!

Tôi đang dùng Excel 2003, nếu dữ liệu lớn hơn 65536 dòng thì chắc chắn sẽ bị lỗi.
Nếu lỗi thì cũng do tác giả thôi, Excel 2003 mà đòi gom dữ liệu hơn 65536 ô vào 1 cột.
Nếu sau 2003 thì tôi chưa biết do chưa xài.
Tôi thử code này vẫn chạy.

Public Sub GPE()
Dim Rng()
Rng = [A1:Z65536].Value
[AB1].Resize(65536, UBound(Rng, 2)).Value = Rng
End Sub

Tạm thế vậy.

 

[hoangvuluan]

Dạ, thưa cùng bác! ở trên là em nói nến số biến trong 1 function (không phải trong sub) - cụ thể là việc khai báo biến mảng ấy.

 

[Ba Tê]

Dạ, thưa cùng bác! ở trên là em nói nến số biến trong 1 function (không phải trong sub) - cụ thể là việc khai báo biến mảng ấy.

Cũng hổng hiểu luôn, Bài #7 của tôi là Sub, đâu dính gì với Function?
Cái này vẫn chạy nè.
Khai báo Mảng Arr() = 1.703.936 ô.

Public Sub GPE()
Dim rng(), Arr(), I As Long, J As Long
    rng = [A1:Z65536].Value
ReDim Arr(1 To 65536, 1 To 26)
    For I = 1 To UBound(rng, 1)
        For J = 1 To 26
            Arr(I, J) = rng(I, J)
        Next J
    Next I
[AB1].Resize(65536, 26).Value = Arr
End Sub

 

[hoangvuluan]

Dạ em xin lỗi bác! em nhìn sub của bác ra function (hix - mắt có vấn đề rồi!!!)

 

[tintam7251]

Theo mình, bộ nhớ của máy tính không phải vô hạn, nếu biến mảng có số phần tử quá lớn sẽ xảy ra lỗi "tràn bộ nhớ". Điều này không quan hệ gì đến việc dùng sub hay function.