W linii for j(...) jest błąd Mismatch. Dlaczego? Ma to być prosty program dzielący zdanie na poszczególne wyrazy w kolumnach obok. Dawno nie pisałem w VBA, a obsługa stringów jest dziwna, więc program...
Sub Makro2()
For i = 1 To 3000 Step 1
If Cells(i, 1).Value <> "" Then 'Jeśli w komorce jest hiperonim
IleGrupLeksemow = Cells(i, 2).Value 'ilość grup leksemow
For j = i To CInt(IleGrupLeksemow) Step 1
DlugoscGrupyLeksemow = Len(Cells(j, 2).Value)
GrupaLeksemow = Cells(j, 2).Value
OstatniaSpacja = 1
KtoryLeksem = 1 'Dzielenie na leksemy
For k = 1 To DlugoscGrupyLeksemow Step 1
If Mid(GrupaLeksemow, k, 1) = " " Then
Leksem = Mid(GrupaLeksemow, OstatniaSpacja, k - OstatniaSpacja - 1)
Cells(i, 3 + KtoryLeksem).Value = Leksem 'w kolumnie 3+ktoryleksem
KtoryLeksem = KtoryLeksem + 1
OstatniaSpacja = k
End If
Next k
Next j
End If
Next i
End Sub