還是C1手工輸入，D1找B列數據？
我看，不用C1和D1，直接從A3: A11寫成B3: B11就行了。
代碼如下，已經註釋。
Sub寫入列b()
Dim arr，arr1 '定義了兩個數組變量。
昏暗的x & amp定義壹個整數變量。
範圍(" B3: b11 ")。' clearcontents '清除B3: b11單元格中的數據。
Arr = range ("a3: a11 ")。將a3: a11的數據賦給數組ARR。
“Redimar arr1 (1到Ubound (arr))”定義arr1數組的大小與arr壹樣大。
For x = 1到UBound(arr)'建立循環。
Arr1(x) = arr(x，1) * 5 '被賦給Arr1數組。
Range ("C1") = arr (x，1)'這三行只是說明了寫入單元格C1和單元格D1的方法，不需要直接達到效果。
Range("D1") = arr1(x)'
MsgBox arr1(x)'表示D1的數據變化。
下壹個x
範圍(“B3”)。Resize (Ubound (arr1)) =應用程序。Transpose (Arr1)'將數組Arr1寫入單元格B3: B11。
末端接頭
妳要做的就是運行這個宏。也可以做壹個按鈕指定這個宏，點擊按鈕完成b列的寫入。