对活动单元中的每个单元执行循环

Question

所以我试图将数据从第1列移到第2列。

由于第2列可能具有合并的单元格，所以我放弃了复制粘贴路径，因此现在遵循以下逻辑：

1. 循环遍历第1列中的每个单元格
2. 将每个单元格值分配给一个变量
3. 将变量值分配给第2列中的每个最后一个空白单元格

这很好用。但是，我在第1列中范围的起点也有所不同。

是否有一种方法可以将x=range ("A" & i).value设置为类似于x = range(Activecell & i).value的位置？如果我完全像这样做，那似乎就行不通了。

Sub pastetest()
    Dim x As String

    For i = 1 To 10
        x = Range("A" & i).Value
        Range("B" & Rows.Count).End(xlUp).Offset(1).Value = x
    Next i
End Sub