Скачать или смотреть 05 Excel VBA - Loop and write letters

I can hear my keyboard.
I'm sorry.

The code, assuming your list starts in row 3 and is found in column B

Sub a()
Dim Counter as Byte
Counter = 3

Do While Range("B" & Counter) "" ' Youtube is dumb, you need to manually add the less-than and greater-than symbols so they form a diamond......
Range("A" & Counter) = Split(Columns(Counter - 2).Address(,0), ":")(0)
Counter = Counter + 1

Loop
End Sub



00:00 - Intro
00:17 - Variable declaration
00:42 - Do while loop
01:11 - Code theft
01:20 - Split-function & Columns
01:50 - Address(,0) removes fixed references
02:12 - Left as an alternative
02:24 - Split returns an array
02:45 - And now we can run it
02:51 - Showing Address with and without (,0)