如何增加+1单元格然后连接vba

Question

我希望增加一个单元格并通过vba连接它

实施例

在单元格A1中，我有一个日期示例1/3/2018来自userform。

我有它将它转换为B1中的文本格式，显示为103173。 我有另一个专栏＆＃34;随机＆＃34; （插入关于不是真正随机的演讲:)）F列中的整数

所以在c栏中它显示＆＃34;随机＆＃34;＆amp; 103173所以在这种情况下它显示333103173

我想要它做的是转到F列中的下一个随机整数，无论​​新的日期转换是什么，都要将值与B1连接起来...... 并将其添加到C2。

我知道我可能需要通过F列进行某种循环， 但不确定那会是怎样的。

任何帮助都会很棒！

我在下面开始的那些

Sub mydate()

    'Dim i As Long
    'Dim j As Long

    'i = 1
    'j = Range("B2000").Value
    'x = Cells(i, 2)

Dim sdate As String
sdate = Format(Range("A1"), "mmddyyy")

Cells(1, 2) = sdate


End Sub