Dẫy số bên C2 có 716-207-133
Mình thấy chu kỳ giống nhau như khuôn đâu theo 1 điều kiện gì của C2 đâu. Cứ nhập tay và copy thôi cho gọn. Hiểu chết liền
Hoàn toàn lấy từ điều kiện bên C2 chứ. Dẫy số bên C2 có 716-207-133
Hic bài này em nuốt không trôi đâu đại ca ơi. Nội suy em chịu không nổi.
Dạ đúng rồi đó ạ, đó là đáp án mà em muốn nhờ mọi người giúp đỡ đó ạ.
Sub test()
Dim chuoi As String, kq(1 To 10000), i As Long, j As Long, tam As Variant, kqtam As Variant
chuoi = [D2] & [E2] & [F2]
With CreateObject("vbscript.regexp")
.Global = True
.Pattern = "\B"
tam = .Replace(chuoi, ",")
End With
kqtam = Split(tam, ",")
With CreateObject("scripting.dictionary")
For i = 0 To UBound(kqtam)
For j = 0 To UBound(kqtam)
If Not .exists(kqtam(i) & kqtam(j)) Then .Add kqtam(i) & kqtam(j), ""
Next
Next
[H3].Resize(, .Count).NumberFormat = "@"
[H3].Resize(, .Count) = .keys
End With
End Sub
Thì bài 17 là xài hàm đó, bài mình viêt bằng code mà hàm gì chứ. Nghiên cưu cách chay code trong file nhé. Nếu kết quả chưa trúng thì thế nào cũng có người hỗ trợ vì mình đã khởi động phương án cho bài toán của bạn rồi.Dạ cảm ơn bác đã quan tâm. Em đã load file bác về nhưng em không thấy có Hàm nào cả
Mục đích của bạn là làm sao tách được ra các tổ hợp, vậy tôi để dang cột bạn chỉ cần thay các giá trị vào dữ liệu là có kết quả, công thức thì kéo sang bên, nếu muốn sang mảng ngang thì bạn copy > Paste special > chọn Value + Transpose là được.
Theo như sư phụ mô tả thì đây là bài toán chỉnh hợp chứ nhỉ? Cụ thể là chỉnh hợp lặp chập 2 của 3 phần tử, số phần tử tạo ra chính là 3^2 = 9 phần tử. Nếu là ABCD thì kết quả sẽ là 4^2 = 16 phần tử.
Chọn ô C2 hoặc C3 (hoặc ô nào muốn tách) rồi bấm nút. Cái vụ tô màu chưa tính.
Public Sub GPE()
Dim Rng As Range, Arr(), I As Long, J As Long, L As Long, K As Long, Dic As Object, Tem As Variant
Set Dic = CreateObject("Scripting.Dictionary")
Set Rng = Selection
ReDim Arr(1 To 1, 1 To Len(Rng) ^ 2)
L = Len(Rng)
For I = 1 To L
If Mid(Rng, I, 1) <> "-" Then
For J = 1 To L
If Mid(Rng, J, 1) <> "-" Then
Tem = Mid(Rng, I, 1) & Mid(Rng, J, 1)
If Not Dic.exists(Tem) Then
K = K + 1
Dic.Add Tem, ""
Arr(1, K) = Tem
End If
End If
Next J
End If
Next I
Selection.Offset(, 1).Resize(, L ^ 2).ClearContents
Selection.Offset(, 1).Resize(, K).Value = Arr
Set Dic = Nothing
End Sub
tmp =IF(COUNTIF($D$2,"*"&ROW($1:$10)-1&"*"),ROW($1:$10)-1,"")UniqueNum =SMALL(tmp,ROW(INDIRECT("1:"&COUNT(tmp))))=IF(INT((COLUMNS($A:A)-1)/COUNT(tmp))+1>COUNT(tmp),"",INDEX(UniqueNum,INT((COLUMNS($A:A)-1)/COUNT(tmp))+1)&INDEX(UniqueNum,MOD((COLUMNS($A:A)-1),COUNT(tmp))+1))Sub Tohop()
Dim i, j As Integer, Arr, Kq As String, Chuoi As String, TmpChuoi as String
TmpChuoi = [D3] & [E3] & [F3]
For i = 1 To Len(TmpChuoi)
If IsNumeric(Mid(TmpChuoi, i, 1)) Then Chuoi = Chuoi & Mid(TmpChuoi, i, 1)
Next
For i = 1 To Len(Chuoi)
For j = 1 To Len(Chuoi)
If i <> j And InStr(1, Kq, Mid(Chuoi, i, 1) & Mid(Chuoi, j, 1)) = 0 Then
Kq = Kq & Mid(Chuoi, i, 1) & Mid(Chuoi, j, 1) & ","
End If
Next
Next
Arr = Split(Kq, ",")
Range("h3", Range("h3").End(xlToRight)).ClearContents
[H3].Resize(, UBound(Arr)) = Arr
End Subcòn nhiêu đứa sau khi làm xong lặng lệ quay đi biệt tâm không một lời từ giã
