excel的宏代碼--單元格賦值的問題

msgbox range("A"&i)

next

這樣會分別顯示A1至A10單元格的值，妳的問題中變量也可以這麽用。

以下代碼是將選中的單行區域轉換成列顯示，供參考：

Sub temp()

If Selection.Columns.Count > 1 Then Exit Sub

r = Selection.Row

c = Selection.Column

For Each cel In Selection

Cells(r, c) = cel

c = c + 1

Next

Range(Cells(r + 1, Selection.Column), Cells(r + c - 2, Selection.Column)).Clear

End Sub

補充回答：

先選擇妳要轉換的單行區域，再執行sub temp()這段代碼，可以將選中的行轉換成列顯示。

妳說的控制A、D，我理解妳是想控制列標吧？可以用：Cells(RowIndex,ColumnIndex)去控制，比如cells(1,1)，即第壹行第壹列，也就是A1，只要改變cells的第二個1成2就會變成cells(1,2)，即B1。

分別顯示A1、B1、C1、D1和E1的值：

for i=1 to 5

msgbox cells(1,i)

next