# excel 表單歸檔sheet間的複製的位址問題-20點

A1

A2 B2

A3 B3

.

.

.

A1 A2 B2 ＜－－sheet1位置的資料

A1 A3 B3　＜－－同上

.

.

.

Update:

Update 2:

Sub list()

For i = 11 To Sheets("Sheet1").[A65536].End(xlUp).Row

j = Sheets("Sheet1").Cells(i, 256).End(xlToLeft).Column

k = Sheets("Sheet2").[A65536].End(xlUp).Row + 1

Update 3:

For m = 4 To 7

Sheets("Sheet2").Cells(k, 1) = Sheets("Sheet1").Cells(5, 6)

Sheets("Sheet2").Cells(k, 2) = Sheets("Sheet1").Cells(1, 10)

Sheets("Sheet2").Cells(k, 3) = Sheets("Sheet1").Cells(6, 6)

Update 4:

Sheets("Sheet2").Cells(k, 4) = Sheets("Sheet1").Cells(9, 8)

Sheets("Sheet2").Cells(k, m + 1) = Sheets("Sheet1").Cells(i, m)

Next m

Next i

End Sub

Update 5:

Update 6:

Update 7:

Rating

不是很清楚需求，請看看以下程式碼

Sub 按鈕1_Click()

Sheets("Sheet2").Cells(1, 1) = Sheets("Sheet1").Cells(1, 1)

For i = 2 To Sheets("Sheet1").[A65536].End(xlUp).Row

j = Sheets("Sheet1").Cells(i, 1).End(xlToRight).Column

k = Sheets("Sheet2").[A65536].End(xlUp).Row + 1

For m = 2 To j

Sheets("Sheet2").Cells(k, 1) = Sheets("Sheet1").Cells(1, 1)

Sheets("Sheet2").Cells(k, m) = Sheets("Sheet1").Cells(i, m)

Next m

Next i

End Sub

或請下載附檔

http://www.FunP.net/7557068

2008-04-29 11:39:52 補充：

修正一下

Sub 按鈕_Click()

Sheets("Sheet2").Cells(1, 1) = Sheets("Sheet1").Cells(1, 1)

For i = 2 To Sheets("Sheet1").[A65536].End(xlUp).Row

j = Sheets("Sheet1").Cells(i, 256).End(xlToLeft).Column

k = Sheets("Sheet2").[A65536].End(xlUp).Row + 1

2008-04-29 11:39:57 補充：

For m = 1 To j + 1

Sheets("Sheet2").Cells(k, 1) = Sheets("Sheet1").Cells(1, 1)

Sheets("Sheet2").Cells(k, m + 1) = Sheets("Sheet1").Cells(i, m)

Next m

Next i

End Sub

2008-04-29 11:40:46 補充：

請下載附檔

http://www.FunP.net/1658631

2008-05-05 12:56:57 補充：

可以將您的檔案上傳嗎?