返回列表 上一主題 發帖

[發問] VBA自動填滿空白處

xandertco

帖子
15 
主題
4 
精華
0 
積分
50 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE2010 
閱讀權限
20 
性別
男 
註冊時間
2012-8-3 
最後登錄
2013-7-15 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-9-13 20:30 | 只看該作者

[發問] VBA自動填滿空白處

向各位請教這個要何寫VBA
紅色是要填入的格子


完成後的格子

自動填入.zip (8.19 KB)

收藏 分享

a8350070

帖子
48 
主題
2 
精華
0 
積分
64 
點名
0  
作業系統
xp 
軟體版本
office 2000 
閱讀權限
20 
性別
男 
來自
TAIPEI 
註冊時間
2011-4-16 
最後登錄
2018-9-26 
2#
發表於 2012-9-13 22:58 | 只看該作者
1.選取 A3:B15 作用中儲存格為A3
2.按F5 e 到 e 特殊 e 空格 e 確定
3.輸入公式 =A2  後按 ctrl + enter
4.選取 A3:B15  複製 再 選擇性貼上值

想用vba 就將以上步驟錄製成巨集
My Blog
http://blog.xuite.net/a8350070

TOP

white945

帖子
23 
主題
0 
精華
0 
積分
31 
點名
0  
作業系統
Win7 
軟體版本
20xx 
閱讀權限
10 
性別
男 
註冊時間
2012-8-11 
最後登錄
2012-8-28 
3#
發表於 2012-9-13 23:22 | 只看該作者
回復 1# xandertco

Range("A1:B15").SpecialCells(xlCellTypeBlanks) = "=R[-1]C"
Range("A1:B15") = Range("A1:B15").Value

TOP

xandertco

帖子
15 
主題
4 
精華
0 
積分
50 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE2010 
閱讀權限
20 
性別
男 
註冊時間
2012-8-3 
最後登錄
2013-7-15 
4#
發表於 2012-9-14 00:28 | 只看該作者
回復 2# a8350070


謝謝你的幫助!

TOP

xandertco

帖子
15 
主題
4 
精華
0 
積分
50 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE2010 
閱讀權限
20 
性別
男 
註冊時間
2012-8-3 
最後登錄
2013-7-15 
5#
發表於 2012-9-14 00:29 | 只看該作者
回復 3# white945


謝謝你的幫助!

TOP

        靜思自在 : 口說一句好話，如口出蓮花；口說一句壞話如口吐毒蛇。
返回列表 上一主題