• 在 VBA 中，使用 Dim 声明的变量是过程级局部变量，即使变量在循环内部声明，其作用域仍然是整个过程（Sub 或 Function）
• 对象赋值需要使用 set obj = obj1，普通类型变量直接赋值

'根据F列的值，将E列的指定单元格的内容拼接至E列
Dim count As Integer
'获取E列实际的行数，.End(xlUp)从F列最后一行向上找到第一个非空的单元格，然后获取他的行号
count = Range("F" & Rows.count).End(xlUp).Row
Dim i As Integer, j As Integer
Dim res As String, fv As Integer
For i = 1 To count
    fv = Range("F" & i).Value
    If fv > 0 Then
        res = ""
        For j = 1 To fv
            res = res & Range("E" & (i + j - 1)).Value
        Next j
        'Cells(i, 4).Value = res
        Range("D" & i).Value = res
    End If
Next i

• Range.Select 的结果会存到 Senlection 中。