Cách chuyển chuỗi thành mảng

Liên hệ QC
L

Lucky070765

Thành viên mới
Tham gia
25/11/11
Bài viết
3
Được thích
0
Tôi mới học VBA nên cũng chưa biết nhiều. Tôi có một vấn đề nhờ các anh chị em trong diễn đàn giúp.
Giả sử tôi có chuỗi s="Diễn đàn Giải Pháp Excel", bây giờ tôi muốn tạo một mảng chuỗi mà mỗi phần tử là một ký tự của chuỗi s thì phải code làm sao. Mục đích của tôi là để duyệt qua từng ký tự của chuỗi mà không cần dùng hàm Mid(s, i, j)
 
Sắp xếp theo thời gian sắp xếp theo bầu chọn
Lucky070765 đã viết:
Tôi mới học VBA nên cũng chưa biết nhiều. Tôi có một vấn đề nhờ các anh chị em trong diễn đàn giúp.
Giả sử tôi có chuỗi s="Diễn đàn Giải Pháp Excel", bây giờ tôi muốn tạo một mảng chuỗi mà mỗi phần tử là một ký tự của chuỗi s thì phải code làm sao. Mục đích của tôi là để duyệt qua từng ký tự của chuỗi mà không cần dùng hàm Mid(s, i, j)
Nhấp chuột vào đây để mở rộng...
Dùng hàm này:
PHP: 
Function StringToArray(ByVal Text As String)
  Dim Tmp As String
  If Trim(Text) = "" Then StringToArray = "": Exit Function
  With CreateObject("VBScript.RegExp")
    .Global = True: .Pattern = ""
    Tmp = Replace(Trim(.Replace(Text, " ")), "  ", " ")
  End With
  StringToArray = Split(Tmp, " ")
End Function
Áp dụng:
=StringToArray("Diễn đàn Giải Pháp Excel") sẽ cho kết quả là 1 mảng với các phần tử là những ký tự của chuổi trên
-----------------
Mà tôi thắc mắc: Bạn quét từng ký tự, dùng hàm MID cũng có vấn đề gì đâu chứ
 
Upvote 0
ndu96081631 đã viết:
Dùng hàm này:
PHP: 
Function StringToArray(ByVal Text As String)
  Dim Tmp As String
  If Trim(Text) = "" Then StringToArray = "": Exit Function
  With CreateObject("VBScript.RegExp")
    .Global = True: .Pattern = ""
    Tmp = Replace(Trim(.Replace(Text, " ")), "  ", " ")
  End With
  StringToArray = Split(Tmp, " ")
End Function
Áp dụng:
=StringToArray("Diễn đàn Giải Pháp Excel") sẽ cho kết quả là 1 mảng với các phần tử là những ký tự của chuổi trên
-----------------
Mà tôi thắc mắc: Bạn quét từng ký tự, dùng hàm MID cũng có vấn đề gì đâu chứ
Nhấp chuột vào đây để mở rộng...
Xin cám ơn bạn. Chỉ là tôi tìm tòi và học tập.
 
Upvote 0
ndu96081631 đã viết:
Dùng hàm này:
PHP: 
Function StringToArray(ByVal Text As String)
  Dim Tmp As String
  If Trim(Text) = "" Then StringToArray = "": Exit Function
  With CreateObject("VBScript.RegExp")
    .Global = True: .Pattern = ""
    Tmp = Replace(Trim(.Replace(Text, " ")), "  ", " ")
  End With
  StringToArray = Split(Tmp, " ")
End Function
Áp dụng:
=StringToArray("Diễn đàn Giải Pháp Excel") sẽ cho kết quả là 1 mảng với các phần tử là những ký tự của chuổi trên
-----------------
Mà tôi thắc mắc: Bạn quét từng ký tự, dùng hàm MID cũng có vấn đề gì đâu chứ
Nhấp chuột vào đây để mở rộng...
Ví dụ em có mảng sau

Arr(1,2)=789
Arr(2,2)=789
Arr(3,2)=8,9,10,11,12

Cho em hỏi ứng dụng hàm của thầy thì sẽ viết thế nào để ra kết quả mảng như sau trong VBA:

Result(1,1)=7
Result(1,2)=8
Result(1,3)=9

Result(2,1)=7
Result(2,2)=8
Result(2,3)=9

Result(3,1)=8
Result(3,2)=9
Result(3,3)=10
Result(3,4)=11
Result(3,5)=12
 
Upvote 0
tueyennhi đã viết:
Ví dụ em có mảng sau

Arr(1,2)=789
Arr(2,2)=789
Arr(3,2)=8,9,10,11,12

Cho em hỏi ứng dụng hàm của thầy thì sẽ viết thế nào để ra kết quả mảng như sau trong VBA:

Result(1,1)=7
Result(1,2)=8
Result(1,3)=9

Result(2,1)=7
Result(2,2)=8
Result(2,3)=9

Result(3,1)=8
Result(3,2)=9
Result(3,3)=10
Result(3,4)=11
Result(3,5)=12
Nhấp chuột vào đây để mở rộng...
Bạn nên dùng Collection, kiểu nó thế này
1583307180144.png
 
Upvote 0
Bài này đã hơn 8 năm rồi. Lúc đó người viết code chắc muốn biểu diễn regex nên mới làm phức tạp vậy.
Bài này làm cho giản dị là dùng hàm StrConv và Split.
 
Upvote 0
nguoiconxunui đã viết:
À bác nhắc em mới để ý tại thấy bạn hỏi tiếp, nên em cũng đào mộ theo.
Nhấp chuột vào đây để mở rộng...
Ở bài #4 bạn ấy hỏi về mảng 2 chiều. Lý do cần thiết là ở diễn đàn này có lệ code dữ liệu theo mảng 2 chiều để tiện việc copy thẳng cả mảng vào worksheet range.
Collection có làm được thao tác "copy thẳng" như thế không?
 
Upvote 0
tueyennhi đã viết:
Cho em hỏi ứng dụng hàm của thầy thì sẽ viết thế nào để ra kết quả mảng như sau trong VBA:
Nhấp chuột vào đây để mở rộng...
---------------------------


Hàm của Thầy ndu sẽ chậm vì mất thời gian CreateObject.

Năm nay 2020 rồi thì dùng hàm này này.

-------------------
PHP: 
Public Function SplitString(ByVal Expression As String, Optional ByVal delimeter As String = " ", Optional ByVal Limit As Long = -1, Optional ByVal Compare As VbCompareMethod = vbBinaryCompare) As String()
  If delimeter = VBA.vbNullChar Or delimeter = VBA.vbNullString Then
    Expression = VBA.StrConv(Expression, VBA.vbUnicode)
    Expression = VBA.Left(Expression, Len(Expression) - 1)
  End If
  SplitString = VBA.Split(Expression, delimeter, Limit, Compare)
End Function
--------------------


Muốn ra mảng như vậy thì vận dụng Redim Preserve


-------------------

PHP: 
Public Function SplitStringToNewArray(ByVal InputArray, Optional ByVal delimeter As String = ",", Optional ByVal Limit As Long = -1)
  On Error Resume Next
  Dim SP$(), K As Long, I As Long, J As Long, Max As Long, cSP As Long
  Dim Result(), Arr As Variant
  Arr = InputArray
  For I = 1 To UBound(Arr) - LBound(Arr) + 1
    SP = SplitString(Arr(I - 1), VBA.IIf(Arr(I - 1) Like "*" & delimeter & "*", delimeter, ""), Limit)
    cSP = UBound(SP) + 1
    If VBA.err.Number = 0 Then
      If cSP > Max Then
        ReDim Preserve Result(1 To UBound(Arr) - LBound(Arr) + 1, 1 To cSP)
        Max = cSP
      End If
      For J = 1 To cSP
        Result(I, J) = SP(J - 1)
      Next
    Else
      VBA.err.Clear
    End If
  Next
  SplitStringToNewArray = Result
  On Error GoTo 0
End Function
 
Lần chỉnh sửa cuối:
Upvote 0
HeSanbi đã viết:
---------------------------


Hàm của Thầy ndu sẽ chậm vì mất thời gian CreateObject.

Năm nay 2020 rồi thì dùng hàm này này.

-------------------
PHP: 
Public Function SplitString(ByVal Expression As String, Optional ByVal delimeter As String = " ", Optional ByVal Limit As Long = -1, Optional ByVal Compare As VbCompareMethod = vbBinaryCompare) As String()
  If delimeter = VBA.vbNullChar Or delimeter = VBA.vbNullString Then
    Expression = VBA.StrConv(Expression, VBA.vbUnicode)
    Expression = VBA.Left(Expression, Len(Expression) - 1)
  End If
  SplitString = VBA.Split(Expression, delimeter, Limit, Compare)
End Function
--------------------


Muốn ra mảng như vậy thì vận dụng Redim Preserve


-------------------

PHP: 
Public Function SplitStringToNewArray(ByVal InputArray, Optional ByVal delimeter As String = ",", Optional ByVal Limit As Long = -1)
  On Error Resume Next
  Dim SP$(), K As Long, I As Long, J As Long, Max As Long, cSP As Long
  Dim Result(), Arr As Variant
  Arr = InputArray
  For I = 1 To UBound(Arr) - LBound(Arr) + 1
    SP = SplitString(Arr(I - 1), VBA.IIf(Arr(I - 1) Like "*" & delimeter & "*", delimeter, ""), Limit)
    cSP = UBound(SP) + 1
    If VBA.err.Number = 0 Then
      If cSP > Max Then
        ReDim Preserve Result(1 To UBound(Arr) - LBound(Arr) + 1, 1 To cSP)
        Max = cSP
      End If
      For J = 1 To cSP
        Result(I, J) = SP(J - 1)
      Next
    Else
      VBA.err.Clear
    End If
  Next
  SplitStringToNewArray = Result
  On Error GoTo 0
End Function
Nhấp chuột vào đây để mở rộng...
Cảm ơn bạn, để mình thử.

Phiền bạn thử vận dụng với file đính kèm giúp mình nhé. Mình đã thêm hai Function trên và viết code vận dụng Function mà không xong.
 

File đính kèm

Lần chỉnh sửa cuối:
Upvote 0
tueyennhi đã viết:
Phiền bạn thử vận dụng với file đính kèm giúp mình nhé. Mình đã thêm hai Function trên và viết code vận dụng Function mà không xong.
Nhấp chuột vào đây để mở rộng...
------------------

Mảng nhập vào hàm phải là Array một chiều nhé bạn.

Arr(1 to 3, 1 to 1) thì chuyển sang mảng một chiều bằng cách vận dụng:

Arr1D = Application.Index(Application.Transpose(Arr), 1, 0)
 
Upvote 0
HeSanbi đã viết:
------------------

Mảng nhập vào hàm phải là Array một chiều nhé bạn.

Arr(1 to 3, 1 to 1) thì chuyển sang mảng một chiều bằng cách vận dụng:

Arr1D = Application.Index(Application.Transpose(Arr), 1, 0)
Nhấp chuột vào đây để mở rộng...
Mình không hiểu về vận dụng những Function dạng cao này, bạn có thể chỉ giúp mình code hoàn chỉnh được không?

Mã: 
Sub Test()
Dim Arr(), Arr1D(), i As Long
Arr = Sheet1.Range("B3:B6").Value
For i = 1 To 3
    Arr1D = Application.Index(Application.Transpose(Arr(i,1)), 1, 0)
    SplitStringToNewArray (Arr1D)
Next i
End Sub
 
Upvote 0
tueyennhi đã viết:
Mình không hiểu về vận dụng những Function dạng cao này, bạn có thể chỉ giúp mình code hoàn chỉnh được không?
Nhấp chuột vào đây để mở rộng...
-------------


Không có hàm dạng cao nào cả. Do bạn không biết nhiều về VBA căn bản.


-------------
PHP: 
Sub Test()

''Application.Index Lấy ra mảng theo chiều ngang của mảng đa chiều
''Application.Transpose chuyển đổi chiều của mảng 1 và 2 chiều
   
Dim Arr As Variant
''Array 2 chiều - dọc thành ngang
Arr = Sheet1.Range("B3:B6").Value
Arr = Application.Index(Application.Transpose(Arr), 1, 0)
Arr = SplitStringToNewArray (Arr)
   
''Array 2 chiều - ngang
Arr = Sheet1.Range("A1:C1").Value
Arr = Application.Index(Arr, 1, 0)
Arr = SplitStringToNewArray (Arr)
   
''Array 1 chiều - ngang
Arr = Array(789,789, "7,8,9,10,11,12")
Arr = SplitStringToNewArray (Arr)  
   
''Array 1 chiều - ngang
Arr = [{789,789, "7,8,9,10,11,12"}]
Arr = SplitStringToNewArray (Arr)  
End Sub
 
Upvote 0
HeSanbi đã viết:
PHP: 
Sub Test()

''Application.Index Lấy ra mảng theo chiều ngang của mảng đa chiều
''Application.Transpose chuyển đổi chiều của mảng 1 và 2 chiều

Dim Arr As Variant
''Array 2 chiều - dọc thành ngang
Arr = Sheet1.Range("B3:B6").Value
Arr = Application.Index(Application.Transpose(Arr), 1, 0)
Arr = SplitStringToNewArray (Arr)

End Sub
Nhấp chuột vào đây để mở rộng...
Cảm ơn bạn rất nhiều! Đúng là mình không biết nhiều về căn bản, trước nay mình chỉ vận dụng code mẫu mình hiểu vào bài toán thực tế của mình. Đôi khi thấy cũng thật chật vật khi thuốc có rồi mà không biết cách sử dụng.

Ở đoạn code này khi mình sử dụng và gán giá trị từ ô E2 nhưng tại sao dòng 2 lại là dữ liệu rỗng nhỉ bạn?
Bài này mục đích của mình là mình có dữ liệu tại cột B muốn chuyển đổi thành mảng, sau đó mảng này kết hợp với dữ liệu tại cột A bắt đầu từ dòng 3. Nhưng khi sử dụng vòng lặp for bắt đầu từ 1 thì dữ liệu không như mong muốn. Đúng của nó thì dữ liệu A3 sẽ được kết hợp với B3 nhưng vì dữ liệu Arr tại dòng 1 là rỗng dẫn đến hai dữ liệu không ăn khớp nhau mặc dù có chỉ số dòng bắt đầu như nhau, giống như đôi đũa cùng chiều dài cùng đặt tại một điểm nhưng khi chạy code thì thành đôi đũa lệch.
 
Lần chỉnh sửa cuối:
Upvote 0
Không phải do căn bản đâu. Tôi còn không hiểu huống hồ gì bạn.
Về việc sử dụng một hàm thì thường người viết hàm sẽ có dòng chỉ dẫn, giải thích cách nạp tham số, trừ phi chúng rất đơn giản.
Tên hàm là SplitStringTo... mà tham số là array thì chỉ thánh mới hiểu.
 
Upvote 0
VetMini đã viết:
Không phải do căn bản đâu. Tôi còn không hiểu huống hồ gì bạn.
Về việc sử dụng một hàm thì thường người viết hàm sẽ có dòng chỉ dẫn, giải thích cách nạp tham số, trừ phi chúng rất đơn giản.
Tên hàm là SplitStringTo... mà tham số là array thì chỉ thánh mới hiểu.
Nhấp chuột vào đây để mở rộng...
Trong bài toán thực tế thì em viết code như này là xử lý xong vấn đề (Tạo mảng Data sao cho dư ra 1 dòng đầu để hết lệch), nhưng em đang không hiểu tại sao mảng Arr chỉ số đầu tiên lại là rỗng

Mã: 
    With Sheets("MAIN")
        R = .Range("AO6500").End(xlUp).Row - 3
        Arr = .Range("AP5").Resize(R, 1).Value
        Arr = Application.Index(Application.Transpose(Arr), 1, 0)
        Arr = SplitStringToNewArray(Arr)
        Data = .Range("AO4").Resize(R, 1).Value
        For i = 1 To UBound(Data, 1)
            For j = 1 To UBound(Arr, 2)
                If Arr(i, j) > 0 Then
                    Tem = Data(i, 1) & Arr(i, j)
                    If Not Dic.Exists(Tem) Then
                        k = k + 1
                        Dic.Add Tem, k
                    End If
                End If
            Next j
        Next i
    End With
 
Upvote 0
Tôi có nói là tôi không hiểu mà. Không hiểu lấy gì giải thích.
VetMini đã viết:
Không phải do căn bản đâu. Tôi còn không hiểu ...
Nhấp chuột vào đây để mở rộng...

Lưu ý là tôi không hề nói code đúng sai. Tôi chỉ nói là với người bình thường thì code khó dùng. Túm lại, phần chỉ dẫn cách sử dụng không theo kịp độ cao siêu của code.
 
Upvote 0
Vì sao đặt "NewArray" mà ko phải là "Array"?

Có những con người không đủ hiểu biết mới dư lời "phò phán".

"Xem lại con người mình có đủ trình phán không đã"
 
Upvote 0
SplitStringTo... thì hiểu cái túc tự (Input) của hành động Split là String. VBA chứ có phải là C đâu mà bắt người ta phải tự hiểu String là Array.
To... cái gì thì nói sau.

Trình độ tiếng Anh như vậy chỉ đủ để đọc mấy cái tài liệu gú gồ được thôi. Muốn dùng tên tiếng Anh thì cần trình độ viết Anh ngữ, cách sử dụng trạng từ, tĩnh từ, và phần khó nhất là giới từ.
 
Upvote 0
tueyennhi đã viết:
Trong bài toán thực tế thì em viết code như này là xử lý xong vấn đề (Tạo mảng Data sao cho dư ra 1 dòng đầu để hết lệch), nhưng em đang không hiểu tại sao mảng Arr chỉ số đầu tiên lại là rỗng
Nhấp chuột vào đây để mở rộng...

------------

Arr = .Range("AP5").Resize(R, 1).Value
Data = .Range("AO4").Resize(R, 1).Value

Để tránh không gặp lỗi này nên viết là:

Const START_ROW = 5
If R < START_ROW Then Exit Sub
Arr = .Range("AP" & START_ROW ).Resize(R, 1).Value
Data = .Range("AO" & START_ROW).Resize(R, 1).Value
 
Upvote 0
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

T
Định dạng cột dữ liệu trong sql
Trả lời
4
Đọc
53
VetMini
V
SA_DQ
  • Question Question
[Bài tập VBA cho người rỗi rảnh] Hãy viết 1 macro tìm ra 3 số nguyên tố liên tiếp
2
Trả lời
30
Đọc
548
VetMini
V
L
  • Question Question
[Hlep] Xóa ảnh theo tên và kích thước
Trả lời
8
Đọc
160
Luong24
L
Xoainon3005
Xin file mẫu kế hoạch sản xuất theo tháng ngành động cơ
Trả lời
0
Đọc
57
Xoainon3005
Xoainon3005
A
Tạo vé Loto bằng Excel
Trả lời
19
Đọc
23K
vinhquang14292
vinhquang14292
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
308
Đọc
22K
CheezeTube
CheezeTube
HeSanbi
  • Đã giải quyết
LocalizeXL v1.73 - Làm nổi bật ô đang chọn và cuộn trang tự động
    • Thích
    • Yêu thích
2 3 4
Trả lời
74
Đọc
10K
vn72259
V
H
Vì sao trong khi cộng và khi sum lại hiển thị sai
Trả lời
15
Đọc
57K
hieung99
hieung99
Thanh271188
Tìm giá trị xuất hiện bất kì (không phải giá trị đầu, cuối) trong excel
    • Cười
Trả lời
3
Đọc
141
VetMini
V
T
Nhờ hỗ trợ hàm SUMIF không phân biệt được các ký tự "0" trước một số trong chuỗi
Trả lời
3
Đọc
190
tan10ckn
T
huuthang_bd
Add-in DeleteVirusMacro - Xóa và ngăn chặn virus macro
    • Thích
    • Yêu thích
    • Chấp nhận
2 3
Trả lời
46
Đọc
14K
tuantran203
T
ongke0711
  • Question Question
Trộn dữ liệu từ Excel sang Word mở rộng (phiên bản ongke0711)
    • Thích
    • Yêu thích
    • Cảm ơn
12 13 14
Trả lời
260
Đọc
27K
hoangtuan.net
hoangtuan.net
HeSanbi
  • Đã giải quyết
WeatherXL - Ứng dụng lấy dữ liệu Thời tiết siêu nhanh (*15/01/2024)
    • Thích
    • Yêu thích
3 4 5
Trả lời
88
Đọc
19K
vc_đi chơi
vc_đi chơi
L
[Help] tự động lấy dữ liệu cổ phiếu từ vietstock về file excel
    • Thích
Trả lời
3
Đọc
851
ketoan113
K
N
Tách chuỗi và tìm kiếm theo dữ liệu gần đúng trong chuỗi ký tự
Trả lời
8
Đọc
205
Ngocminh19
N
Mr.hieudoanxd
  • Question Question
[Cần hướng dẫn] Về lập trình Viết Function với Settimer và Killtimer
    • Thích
Trả lời
8
Đọc
348
nguyendang95
N
P
Các Bác cho e hỏi làm thế nào để ẩn công thức trên GOOGLE SHEET với ạ?
2
Trả lời
21
Đọc
18K
học excel googlesheet
học excel googlesheet
Emyeuexcel
  • Question Question
Code VBA mở nhiều file, value các sheet, lưu và đóng file
Trả lời
3
Đọc
152
Emyeuexcel
Emyeuexcel
V
Cho 2 biến - kết quả trả về giá trị của hàng đầu tiên
    • Chấp nhận
Trả lời
5
Đọc
183
Duy Tùng 9x
Duy Tùng 9x
D
Giúp đỡ thống kê dữ liệu theo điều kiện
Trả lời
8
Đọc
257
HieuCD
H
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