iki sütundaki tüm değerleri kombinleme

[serkanbeyzi]

Değerli arkadaşlar merhaba;

Benim için uzun zamandır sorun olan bir konuda yardımlarınızı rica ediyorum. Konuyu örneklendireyim;

A ve B sütunumuz var. A sütununda alt alta yani A1 ve A2 satırlarında X ve Y değerleri olsun. B sütunun B 1, B2 ve B3 satırlarında da 1, 2, 3 değerleri olsun. Formülle A ve B sütunundaki değerleri kombinleyebilirmiyiz?

C1 Hücresine A1&B1 -X1
C2 Hücresine A1&B2 - X2
C3 Hücresine A1&B3 - X3
C4 Hücresine A2&B1 - Y1
C5 Hücresine A2&B2 - Y2
C6 Hücresine A2&B3 - Y3

Satırlarım çok fazla 21377 adet satırdaki sütun sütun değerleri kombinlemem gerekli. Tahminimce makro ile pek tabii yapılabilir ama maalesef makro bilgim neredeyse sıfır.Yardımlarınızı rica ederim.

 

[murat_fidan]

Üzerinde veriler olacak şekilde örnek dosya paylaşırsanız yardımcı olayım. Altın üye olmadığım için örnek dosyayı dosya paylaşım siteleri üzerinden paylaşınız

 

[serkanbeyzi]

Üzerinde veriler olacak şekilde örnek dosya paylaşırsanız yardımcı olayım. Altın üye olmadığım için örnek dosyayı dosya paylaşım siteleri üzerinden paylaşınız

https://ibb.co/vs9YVTw

Resim ekleyebildim.

 

[murat_fidan]

https://ibb.co/vs9YVTw

Resim ekleyebildim.

Sub KombinasyonOlustur()
    Dim ws As Worksheet
    Dim lastRowA As Long, lastRowB As Long, lastRowC As Long
    Dim i As Long, j As Long, k As Long
    Dim aVal As String, bVal As String, cVal As String
    Dim resultRow As Long
    
    ' Çalışma sayfasını belirleyin
    Set ws = ThisWorkbook.Sheets("Sayfa1")
    
    ' Son satırları belirleyin
    lastRowA = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    lastRowB = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
    lastRowC = ws.Cells(ws.Rows.Count, "C").End(xlUp).Row
    
    ' Başlangıç satırını belirleyin
    resultRow = 2
    
    ' Kombinasyonları oluşturun
    For i = 2 To lastRowA
        aVal = ws.Cells(i, "A").Value
        For j = 2 To lastRowB
            bVal = ws.Cells(j, "B").Value
            For k = 2 To lastRowC
                cVal = ws.Cells(k, "C").Value
                ws.Cells(resultRow, "D").Value = aVal & bVal & cVal
                resultRow = resultRow + 1
            Next k
        Next j
    Next i
End Sub

 

[serkanbeyzi]

Sub KombinasyonOlustur()
    Dim ws As Worksheet
    Dim lastRowA As Long, lastRowB As Long, lastRowC As Long
    Dim i As Long, j As Long, k As Long
    Dim aVal As String, bVal As String, cVal As String
    Dim resultRow As Long
   
    ' Çalışma sayfasını belirleyin
    Set ws = ThisWorkbook.Sheets("Sayfa1")
   
    ' Son satırları belirleyin
    lastRowA = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    lastRowB = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
    lastRowC = ws.Cells(ws.Rows.Count, "C").End(xlUp).Row
   
    ' Başlangıç satırını belirleyin
    resultRow = 2
   
    ' Kombinasyonları oluşturun
    For i = 2 To lastRowA
        aVal = ws.Cells(i, "A").Value
        For j = 2 To lastRowB
            bVal = ws.Cells(j, "B").Value
            For k = 2 To lastRowC
                cVal = ws.Cells(k, "C").Value
                ws.Cells(resultRow, "D").Value = aVal & bVal & cVal
                resultRow = resultRow + 1
            Next k
        Next j
    Next i
End Sub

Üstad çok teşekkür ederim. Ellerine sağlık