JOSH

帖子: 12
主題: 3
精華: 0
積分: 20
點名: 0
作業系統: Windows
軟體版本: office 2003
閱讀權限: 10
性別: 男
註冊時間: 2010-6-30
最後登錄: 2013-6-4

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2010-7-4 18:33 | 只看該作者

自動填滿空格

Dear 高手們
附件為樞紐整理出來的資料
但相同的資料不會自動填寫
1．請問VBA要如何寫讓資料填滿
2．還是樞紐要如何設定，可以自動填滿

請各位高手們不吝指教。謝謝

填滿空格.zip (18.34 KB)

樓主熱帖

wqfzqgk

中學生 Rank: 2

帖子: 75
主題: 19
精華: 0
積分: 135
點名: 0
作業系統: win7
軟體版本: 2007 010
閱讀權限: 20
註冊時間: 2010-5-18
最後登錄: 2013-10-26

6^#

發表於 2010-7-10 08:51 | 只看該作者

还是做成多功能的插件比较好

学习

TOP

HUNGCHILIN

　暱稱: 阿吉
　頭銜: 不恥下問,不斷學習,才會進步

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 647
主題: 190
精華: 24
積分: 1037
點名: 0
作業系統: windows7
軟體版本: Office 2010 ; OOO3.0 ; Google
閱讀權限: 100
性別: 男
來自: 竹南
註冊時間: 2010-5-2
最後登錄: 2022-6-24

貴賓勳章熱烈參與勳章好學求知勳章

5^#

發表於 2010-7-6 12:41 | 只看該作者

上面三種方法都是比較快速的方法
如果用迴圈的寫法就會被笑又笨重又慢了

Hung-Chi Lin/林宏吉
HUNGCHILIN/林宏吉的OFFICE專欄

TOP

PD961A

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 1180
主題: 204
精華: 0
積分: 1051
點名: 0
作業系統: Mac.OS10.6
軟體版本: Office 2003
閱讀權限: 100
性別: 男
註冊時間: 2010-5-3
最後登錄: 2012-9-19

2012龍年全勤獎章論壇貢獻勳章終身榮譽會員勳章好學求知勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2010-7-6 07:23 | 只看該作者

本帖最後由 PD961A 於 2010-7-6 07:24 編輯

回復 HUNGCHILIN

Dear
小弟不長材
1．請問為什麼我找不到功能→特殊?
2．為什麼若其他欄位有資料， ...
JOSH 發表於 2010-7-5 21:42

編輯\到\

TOP

JOSH

小學生 Rank: 1

帖子: 12
主題: 3
精華: 0
積分: 20
點名: 0
作業系統: Windows
軟體版本: office 2003
閱讀權限: 10
性別: 男
註冊時間: 2010-6-30
最後登錄: 2013-6-4

3^#

發表於 2010-7-5 21:42 | 只看該作者

回復 2# HUNGCHILIN

Dear
小弟不長材
1．請問為什麼我找不到功能→特殊?
2．為什麼若其他欄位有資料，VBA不會停止?請問要如何修改

Sub 填滿()
Range("A2:B20").Select
Selection.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
End Sub

圖片 7.JPG (51.29 KB)

TOP

HUNGCHILIN

　暱稱: 阿吉
　頭銜: 不恥下問,不斷學習,才會進步

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 647
主題: 190
精華: 24
積分: 1037
點名: 0
作業系統: windows7
軟體版本: Office 2010 ; OOO3.0 ; Google
閱讀權限: 100
性別: 男
來自: 竹南
註冊時間: 2010-5-2
最後登錄: 2022-6-24

貴賓勳章熱烈參與勳章好學求知勳章

2^#

發表於 2010-7-4 18:54 | 只看該作者

本帖最後由 HUNGCHILIN 於 2010-7-4 18:56 編輯

空格填滿
這已經是老掉牙的題目了
隨便就有三四種解法歐

依你的檔案
解法一:
1.先選範圍A2:B10
2.用"到"功能選"空格" (編輯/到/特殊/空格)
3.輸入"=A3"
4.按Ctrl+Enter

解法二:
亦可使用定義法
1.先選範圍A2:B10
2.用"到"功能選"空格" (編輯/到/特殊/空格)
3.輸入"=A"
4.按Ctrl+Enter
如附檔

解法三:
使用VBA 只幾行還可以用
Sub Macro1()
Range("A2:B10").Select
Selection.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
End Sub
如附檔

填滿空格.rar (6 KB)

Hung-Chi Lin/林宏吉
HUNGCHILIN/林宏吉的OFFICE專欄

TOP