VorReorganizedata ()
Schwaches mArray als Variante
Schwaches wArray als Variante
Schwache Frau als Arbeitsblatt
Schwaches lRow als lang
Frau = ThisWorkbook.Worksheets („Sheet1“) einstellen
lRow = mS.UsedRange.SpecialCells (xlCellTypeLastCell). Reihe
mArray = mS.Range („A1: C“ u. lRow)
wArray = mS.Range („D1: D“ u. lRow)
Für i = 1 zum lRow
Wenn mArray (i, 3) = „Kindergarten“ dann
wArray (i, 1) = mArray (i, 1) u. „,“ u. mArray (i, 2) u. „,“ u. LCase (gelassen (mArray (i, 2), 1)) u. LCase (mArray (i, 1)) u. „,“ u. „Willkommen“ u.“, „u. mArray (i, 3) u.“, „u. 1
Sonst
wArray (i, 1) = mArray (i, 1) u. „,“ u. mArray (i, 2) u. „,“ u. LCase (gelassen (mArray (i, 2), 1)) u. LCase (mArray (i, 1)) u. „,“ u. „Willkommen“ u.“, „u. mArray (i, 3) u.“, „u. mArray (i, 3) + 1
Beenden wenn
Zunächst I
mS.Range („A1: C“ u. lRow) .ClearContents
mS.Range („A1: “ U. lRow) = wArray
Enden-Unterseeboot
|