Mai jos vom analiza un program în Excel VBA acea separă șirurile.
Situatie:
Plasați un buton de comandă pe foaia de lucru și adăugați următoarele linii de cod:
1. În primul rând, declarăm o variabilă numită fullname de tip String, o variabilă numită comapoziție de tip Integer și o variabilă numită i de tip Integer.
Dim fullname As String, comaposition As Integer, i As Integer
Problema cu care avem de-a face este că trebuie să spunem Excel VBA unde vrem să separăm șirul. În cazul lui Smith, Mike, virgula este în poziția 6, în timp ce în cazul lui Williams, Janet, virgula este în poziția 9.
2. Folosim o buclă pentru a executa operațiunile pe fiecare nume introdus în Excel. Mai întâi, inițializăm variabila fullname. Apoi, folosim funcția Instr pentru a găsi poziția virgulei.
Pentru i = 2 până la 7
fullname = Celule (i, 1). Valoare
commaposition = InStr (nume complet, ",")
3. În cele din urmă, dorim să scriem partea după virgulă în coloana B și partea din fața virgulei în coloana C. Puteți realiza acest lucru adăugând liniile:
Celule (i, 2). Valoare = Mid (nume complet, comapoziție + 2)
Celule (i, 3) .Value = Stânga (nume complet, compoziție - 1)
Mid (fullname, commaposition + 2) înseamnă că vrem partea de fullname începând cu caracterul „commaposition + 2” (acesta este exact prenumele).
Stânga (fullname, commaposition - 1) înseamnă că dorim ca partea fullname să înceapă de la început până la caracterul „commaposition- 1” (acesta este exact numele de familie).
4. Nu uitați să închideți bucla.
Apoi eu
5. Adăugați șase nume separate printr-o virgulă și un spațiu la Range („A2: A7”).
6. Testați programul.
Rezultat:
