暱稱: 隨風飄蕩的羽毛 頭銜: [御用]潛水艇
高中生 
- 帖子
- 852
- 主題
- 79
- 精華
- 0
- 積分
- 918
- 點名
- 0
- 作業系統
- Windows 7 , XP
- 軟體版本
- Office 2007, Office 2003,Office 2010,YoZo Office
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 宇宙
- 註冊時間
- 2011-4-8
- 最後登錄
- 2024-2-21
|
3#
發表於 2011-5-23 15:04
| 只看該作者
本帖最後由 mark15jill 於 2011-5-23 15:15 編輯
回復 1# cw3076
Sub Macro1()
'
' Macro1 Macro
'
' GBKEE 大大提供的
'
Rows("2:2").Value = Rows("1:1").Value 'rows("2:2") = 下一列 rows("1:1")=目前列
End Sub
or
sub xx
Rows("2").Select
Selection.FormulaR1C1 = "=R[-1]C"
Rows("3").Select
Selection.FormulaR1C1 = "=R[-1]C"
Rows("4").Select
Selection.FormulaR1C1 = "=R[-1]C"
Rows("5").Select
Selection.FormulaR1C1 = "=R[-1]C"
end sub
ps 很想直接用矩陣下去帶= = 但是 程度低 試驗失敗=ˇ= |
|
發表於 2011-5-23 14:46
| 