Bài toán nhỏ (1 người xem)

[lyly2626]

tách ký tự tạo thành bởi xxx

Xin anh/chị viết giùm đoạn code hoặc hàm hoặc mẹo gì để tạo nhanh ra vùng chứa toàn bộ các chữ tạo thành bởi 3 kí tự ạ.

Xin xem trong file để biết chi tiết!

 

[hungpecc1]

Xin anh/chị viết giùm đoạn code hoặc hàm hoặc mẹo gì để tạo nhanh ra vùng chứa toàn bộ các chữ tạo thành bởi 3 kí tự ạ.

Xin xem trong file để biết chi tiết!

[WARNING1]Đầu tiên : Đặt lại tiêu đề cho sát với bài toán, ví dụ " tách ký tự tạo thành bởi xxx" nếu không bài này sẽ bị BQT khóa lại! [/WARNING1]

 

[AutoReply]

chắc là như vầy

Public Sub hello()
Dim str As String, x As Byte, y As Byte, z As Byte, arr(1 To 100000, 1 To 1), k As Long
str = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
For x = 1 To 26 Step 1
    For y = 1 To 26 Step 1
        For z = 1 To 26 Step 1
            k = k + 1
            arr(k, 1) = Mid(str, x, 1) & Mid(str, y, 1) & Mid(str, z, 1)
        Next
    Next
Next
Sheet1.Range("I1").Resize(k).Value = arr
End Sub

 

[Phuocam]

Thêm cách bằng công thức:
=CHAR(65+MOD((ROW(A1)-1)/26^2,26))&CHAR(65+MOD((ROW(A1)-1)/26,26))&CHAR(65+MOD(ROW(A1)-1,26))