EXCEL中如何将sheet1中A1：An的数值逐一导入到sheet1到sheet n的指定单元格？

Question

请教下如果想把sheet1中A列的数据1~n分别添加到sheet1~sheet n的指定单元格B1，应该怎么做？即sheet1中B1赋值a，sheet2 B1为b，sheet3 B1 为c... 依次谢谢老师

Answer 1

用VBA来做

Sub test()
arr = Range("A1:A" & Range("A65536").End(xlUp).Row)
n = UBound(arr, 1)
For i = 1 To n
    With Sheets(i)
        .Range("B1") = arr(i, 1)
    End With
Next
End Sub