Pastebin
API
tools
faq
paste
Login
Sign up
SHARE
TWEET
Untitled
a guest
Jul 18th, 2018
69
0
Never
Add comment
Not a member of Pastebin yet?
Sign Up
, it unlocks many cool features!
text
0.16 KB
| None
|
0
0
raw
download
clone
embed
print
report
Dim r As Integer
Dim var As Variant
r = Range("B1").CurrentRegion.Rows.Count
For var = 2 To r
Range("A" & var).Value = Left(Cells(var, 1).Text, 1)
Next var
Add Comment
Please,
Sign In
to add comment
Public Pastes
🤑 G2A.com Free Gift Card Guide Apr 2024 FIX 🤑
GetText | 7 min ago | 0.39 KB
Keylogger.py
Python | 15 min ago | 5.00 KB
Combobox
Python | 19 min ago | 0.95 KB
Untitled
C++ | 31 min ago | 1.42 KB
StargateDialing
Lua | 31 min ago | 3.93 KB
Untitled
Python | 32 min ago | 2.42 KB
🤑 G2A.com Free Gift Card Guide Apr 2024 FIX 🤑
GetText | 41 min ago | 0.38 KB
СПРИНТ № 7 | Модель памяти в C++ | Урок 10: П...
C++ | 51 min ago | 9.72 KB
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the
Cookies Policy
.
OK, I Understand
Not a member of Pastebin yet?
Sign Up
, it unlocks many cool features!