-
Fototrend
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
félisten
válasz Mesike8114 #9192 üzenetére
Rendben, de ha már megírtam a makrót, azért beteszem. Pár fontos infó
1. 16-onként csoportosít M2-től kerülnek be az eredmények
2. A sorok számának maradék nélkül oszthatónak kell lennie 16-al
3. Ez 2000 sort dolgoz fel, amit korábban megadtál
4. Szöveg típusra kell formázni az L oszlopotSub FSCD_CONCATENATE()
Dim My_String As String
Application.ScreenUpdating = False
Range("L2").Select
For i = 1 To 2000 \ 16
My_String = ""
For j = 0 To 15
If j = 15 Then
My_String = My_String + ActiveCell.Value
Else
My_String = My_String + ActiveCell.Value + " OR 'azonosító' = "
End If
ActiveCell.Offset(1, 0).Select
Next j
Range("M2").Offset(i - 1, 0).Value = My_String
Next i
Range("M2").Select
Application.ScreenUpdating = True
End Sub[ Módosította: #65675776 ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
Új hozzászólás Aktív témák
- Windows 10/11 Home/Pro , Office OEM/Retail kulcsok
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24
- Vírusirtó, Antivirus VPN kulcsok
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Game Pass Ultimate előfizetések 1 - 25 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN! AKCIÓ!