Friendpaste

--- Revision None
+++ Revision 323537323931
@@ -0,0 +1,32 @@
+
+
+Function convert(i As Long) As String
+    
+    Dim num As Long
+    Dim str As String
+    
+    str = Chr(((i - 1) Mod 26) + 65)
+    num = (i - 1) \ 26
+    
+    Do While num <> 0
+        
+        str = Chr(((num - 1) Mod 26) + 65) & str
+        num = (num - 1) \ 26
+        
+    Loop
+    
+    convert = str
+    
+End Function
+
+
+Sub Macro1()
+    
+    Dim i As Long
+    
+    For i = 1 To 5000
+        Cells(i, 1) = i
+        Cells(i, 2) = convert(i)
+    Next
+    
+End Sub
a	b
	0	+
	0	+
	0	+	Function convert(i As Long) As String
	0	+
	0	+	Dim num As Long
	0	+	Dim str As String
	0	+
	0	+	str = Chr(((i - 1) Mod 26) + 65)
	0	+	num = (i - 1) \ 26
	0	+
	0	+	Do While num <> 0
	0	+
	0	+	str = Chr(((num - 1) Mod 26) + 65) & str
	0	+	num = (num - 1) \ 26
	0	+
	0	+	Loop
	0	+
	0	+	convert = str
	0	+
	0	+	End Function
	0	+
	0	+
	0	+	Sub Macro1()
	0	+
	0	+	Dim i As Long
	0	+
	0	+	For i = 1 To 5000
	0	+	Cells(i, 1) = i
	0	+	Cells(i, 2) = convert(i)
	0	+	Next
	0	+
	0	+	End Sub
...