Excel VBA -将一个单元格拆分为1000个部分，并将它们复制到不同的单元格中

Sub SplitCell()
    Dim originalCell As Range
    Dim splitValue As Variant
    Dim splitRange As Range
    Dim i As Integer
    
    ' 选择要拆分的单元格
    Set originalCell = Range("A1")
    
    ' 获取单元格的值
    splitValue = originalCell.Value
    
    ' 创建拆分后的单元格范围
    Set splitRange = originalCell.Resize(1000, 1)
    
    ' 将拆分后的值复制到不同的单元格中
    For i = 1 To 1000
        splitRange.Cells(i, 1).Value = splitValue
    Next i
End Sub