Tạo các cell aaa, aab, aac...zzz tự động

[dnv2006]

Nhờ các bạn giúp đỡ, tôi muốn tạo 17576(= 26^3) cell có nội dung aaa, aab, aac...zzz một cách tự động? Nếu có thể, tạo giúp tôi một file *.xls có nội dung như vậy. Thank u so much!

 

[Po_Pikachu]

Bạn dùng file của mình nha! Thân.

 

[Po_Pikachu]

Còn nếu muốn tiết kiệm không gian bảng tính thì xóa hết dữ liệu trong bảng tính đi. Vào VBA (Alt + F11), Replace toàn bộ code trong đó thành như vầy cũng được.

Const bien = "abcdefghijklmnopqrstuvwxyz" Sub chay() m = 1 For i = 1 To 26 For j = 1 To 26 For k = 1 To 26 Cells(m, 1) = Mid(bien, i, 1) & Mid(bien, j, 1) & Mid(bien, k, 1) m = m + 1 Next k Next j Next i End Sub

Thân.

 

[hoangminhtien]

Nhờ các bạn giúp đỡ, tôi muốn tạo 17576(= 26^3) cell có nội dung aaa, aab, aac...zzz một cách tự động? Nếu có thể, tạo giúp tôi một file *.xls có nội dung như vậy. Thank u so much!

Gửi bạn thêm 1 cách dùng công thức, tuy nhiên tốc độ sử lý hơi chậm

 

[ndu96081631]

Tôi lại dùng cách khác (không For)

Sub TaoMa()
  With ActiveCell.Resize(17576)
    .FormulaArray = "=CHAR(INT((ROW(1:17576)-1)/676)+65)&CHAR(INT(MOD(ROW(1:17576)-1,676)/26)+65)&CHAR(MOD(ROW(1:17576)-1,26)+65)"
    .Value = .Value
  End With
End Sub

Bảo đãm nhanh như chớp
Nếu muốn kết quả là chử thương (aaa. aab...) thì thay số 65 trong code thành 97