返回列表下一主題上一主題發帖

自動填滿空格

JOSH

小學生 Rank: 1

帖子: 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)

樓主熱帖

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

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)