XIN HÀM LIỆT KÊ TỔ HỢP 6 CHỮ (1 người xem)

[THIÊN HI]

Mình cần xin hàm liệt kê chi tiết được. Tổ hợp 6 ký tự từ 26 chữ cái. Ví dụ: AAAAAA, AAAAAB,........ZZZZZZ
và Tổ hợp 8 ký tự bao gồm số và chữ cái. Rất mong được mọi người hỗ trợ ạ! Em cảm ơn rất nhiều ạ!

 

[hoangtuaotrang_hp_vn]

Mình cần xin hàm liệt kê chi tiết được. Tổ hợp 6 ký tự từ 26 chữ cái. Ví dụ: AAAAAA, AAAAAB,........ZZZZZZ
và Tổ hợp 8 ký tự bao gồm số và chữ cái. Rất mong được mọi người hỗ trợ ạ! Em cảm ơn rất nhiều ạ!

Thứ nhất: không viết hoa toàn bộ tiêu đề (quy định của diễn đàn)
Thứ 2: bạn hỏi chatGPT trả lời:

Để liệt kê tất cả các tổ hợp 6 ký tự từ 26 chữ cái và tổ hợp 8 ký tự bao gồm chữ cái và số, chúng ta cần kết hợp một số công cụ vì Excel không thể trực tiếp xử lý danh sách lớn như vậy (vì sẽ có rất nhiều tổ hợp).

Tổ hợp 6 ký tự từ 26 chữ cái (AAAAAA đến ZZZZZZ)​

Với 26 chữ cái, tổ hợp 6 ký tự sẽ tạo ra 26626^6266 tổ hợp, tương đương 308,915,776 tổ hợp.

Tổ hợp 8 ký tự bao gồm số và chữ cái (AAAA0000 đến ZZZZ9999)​

Với 26 chữ cái và 10 chữ số, tổ hợp 8 ký tự sẽ tạo ra 36836^8368 tổ hợp, tương đương 2,821,109,907,456 tổ hợp.

Tạo tổ hợp này trong Excel:​

Excel có giới hạn số hàng tối đa là 1,048,576 hàng. Do đó, Excel không thể chứa tất cả các tổ hợp này. Thay vào đó, bạn sẽ cần dùng các công cụ hoặc phần mềm chuyên biệt như Python, Power Query, hoặc cơ sở dữ liệu để xử lý lượng dữ liệu lớn như vậy.

Nếu bạn chỉ cần tạo một số tổ hợp nhỏ, Excel có thể xử lý được với công thức SEQUENCE hoặc CHAR, nhưng cho toàn bộ tổ hợp 6 hoặc 8 ký tự, bạn nên dùng một ngôn ngữ lập trình như Python để xử lý hiệu quả hơn. Bạn có thể:

1. Sử dụng Python hoặc một ngôn ngữ lập trình khác: Bạn có thể viết một đoạn mã nhỏ để liệt kê các tổ hợp này bằng cách sử dụng Python và thư viện itertools.
2. Sử dụng một công cụ sinh tổ hợp trực tuyến hoặc một chương trình chuyên dụng.

 

[huhumalu]

Tổ hợp 6 ký tự từ 26 chữ cái. Ví dụ: AAAAAA, AAAAAB,........ZZZZZZ
và Tổ hợp 8 ký tự bao gồm số và chữ cái

Chắc là bạn hỏi chơi, chắc để đi dò mật khẩu quá.
Với số lượng tổ hợp này excel gần như là không tưởng, kể cả có dùng vòng lặp và ghi thành file txt thì cũng không làm được gì cả.
Và theo mình nó cũng chẳng giúp được gì.

 

[hungpecc1]

Mình cần xin hàm liệt kê chi tiết được. Tổ hợp 6 ký tự từ 26 chữ cái. Ví dụ: AAAAAA, AAAAAB,........ZZZZZZ
và Tổ hợp 8 ký tự bao gồm số và chữ cái. Rất mong được mọi người hỗ trợ ạ! Em cảm ơn rất nhiều ạ!

Dạng bài này dùng thuật toán "Đệ quy quay lui " là gọn gàng về code nhất;
ví dụ code để tổ hợp 6 ký tự từ 26 chữ cái ( chạy sub main() kết quả hiện ở cột A sheet hiện hành)

Option Explicit
Public Arr, Result, k&
Sub Try(ByVal i As Long)
    Dim item, j
        For Each item In Arr
            Result(i) = item
            If i = 5 Then
                    If k <= 1048575 Then
                        Range("A1").Offset(k) = Join(Result, "")
                        k = k + 1
                    End If
            Else
                Try i + 1
            End If
        Next
End Sub
Sub main()
    Dim tmpArr, s
        k = 0
        s = "A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,W,X,Y,Z"
        Arr = Split(s, ",")
        ReDim Result(0 To 5)
        Try 0
        'MsgBox str
End Sub

Thông thường dạng toán liệt kê tổ hợp đi kèm với điều kiện biên nào đó để tránh quá tải không cần thiết: ví dụ khi tìm được 1 cấu hình được tổ hợp 6 ký tự từ 26 chữ cái , Tiến hành kiểm tra cấu hình đó nếu thỏa mãn điều kiện dừng đệ quy

 

[VetMini]

Dạng bài này dùng thuật toán "Đệ quy quay lui " là gọn gàng về code nhất;
ví dụ code để tổ hợp 6 ký tự từ 26 chữ cái ( chạy sub main() kết quả hiện ở cột A sheet hiện hành)
...
Thông thường dạng toán liệt kê tổ hợp đi kèm với điều kiện biên nào đó để tránh quá tải không cần thiết: ví dụ khi tìm được 1 cấu hình được tổ hợp 6 ký tự từ 26 chữ cái , Tiến hành kiểm tra cấu hình đó nếu thỏa mãn điều kiện dừng đệ quy

Loại bài này không phải là thuật toán tìm tổ hợp. Chúng cói cả đống trên mạng, mọi ngôn ngữ.
Bài này là "làm cách nào chứa và tham chiếu hàng trăm triệu (tổ hợp ký tự) và hàng trăm tỷ (tổ hợp ký tự và ký số) kết quả?"

 

[HeSanbi]

Dạng bài này dùng thuật toán "Đệ quy quay lui " là gọn gàng về code nhất;
ví dụ code để tổ hợp 6 ký tự từ 26 chữ cái ( chạy sub main() kết quả hiện ở cột A sheet hiện hành)

Option Explicit
Public Arr, Result, k&
Sub Try(ByVal i As Long)
    Dim item, j
        For Each item In Arr
            Result(i) = item
            If i = 5 Then
                    If k <= 1048575 Then
                        Range("A1").Offset(k) = Join(Result, "")
                        k = k + 1
                    End If
            Else
                Try i + 1
            End If
        Next
End Sub
Sub main()
    Dim tmpArr, s
        k = 0
        s = "A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,W,X,Y,Z"
        Arr = Split(s, ",")
        ReDim Result(0 To 5)
        Try 0
        'MsgBox str
End Sub

Thông thường dạng toán liệt kê tổ hợp đi kèm với điều kiện biên nào đó để tránh quá tải không cần thiết: ví dụ khi tìm được 1 cấu hình được tổ hợp 6 ký tự từ 26 chữ cái , Tiến hành kiểm tra cấu hình đó nếu thỏa mãn điều kiện dừng đệ quy

Cải tiến mã của bác lại để tăng tốc. Mã cải tiến ngốn RAM ít nhất 800MB
Nếu tận dụng đa luồng cũng không cứu vãn nổi tốc độ và cách xử lý các bài toán dạng này trong Excel và với PC yếu.
Với mỗi giá trị là khác nhau thì Excel đóng gói phải lưu trữ giá trị nhân đôi, lưu rồi lúc mở lên cũng là một vấn đề với Excel.

Option Explicit
Public Arr, item, k&, c%, z$()
Sub Try(ByVal count%, Optional ByVal i = 1)
  Dim a, j
  For Each a In Arr
    Mid$(item, i, 1) = a
    If i = count Then
      k = k + 1: z(k, 1) = item
      If k >= 1048576 Then
        DoEvents
        Range("A1")(1, c).Resize(1048576, 1) = z
        k = 0: c = c + 1
        ReDim z(1 To 1048576, 1 To 1)
      End If
    Else
      Try count, i + 1
    End If
  Next
End Sub
Sub main()
  Dim tmpArr, s
  k = 0: c = 1
  s = "A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z"
  Arr = Split(s, ","): item = String$(6, "A")
  ReDim z(1 To 1048576, 1 To 1)
  Try 6
  If k > 0 Then
    Range("A1")(1, c).Resize(1048576, 1) = z
  End If
  Erase z
  'MsgBox str
End Sub