Question

请教execl宏，有哪位朋友可以帮我写个宏文件

请教execl宏，有哪位朋友可以帮我写个宏文件，A列为序列号。我想在K列用RANDBETWEEN生成13位数值。因为A列不知道会出现多少序列号，所以想作成判断，如果A列有序列号则再相应的K列中生成13位的数值。
Sub randxh()
Dim i As Long, ln As Long, res As String
With ActiveSheet
ln = .[a60000].End(xlUp).Row
For i = 1 To ln
If .range("a" & i).Value <> "" Then
res = CStr(Application.WorksheetFunction.RandBetween(1000000000000#, 9999999999999#))
.range("k" & i).Value = res
End If
Next i
End With
End Sub

Answer 1

Sub test()
I = Cells(Rows.Count, 1).End(3).Row
Range("K1:K" & I).Select
With Selection
.FormulaR1C1 = "=RANDBETWEEN(10000000000,999999999999)"
.Copy
.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
.TextToColumns Destination:=Range("k1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 2), TrailingMinusNumbers:=True
End With
End Sub