標題:
[發問]
自動填入內容到資料格內
[打印本頁]
作者:
kan109
時間:
2010-11-2 16:38
標題:
自動填入內容到資料格內
本帖最後由 kan109 於 2010-11-2 16:41 編輯
自動填入資料格
附件rar
B 欄內資料格內,如任何內容,自動填入直到下一組內容出現
如B64有文字(alfasnd) 直到B69前均為空格. 要65-68自動填入B64的文字(alfasnd)
感謝!!!!因為有17000 例~不能逐格入或逐格複制~!!!感謝!!!![attach]3459[/attach]
作者:
GBKEE
時間:
2010-11-2 17:50
回復
1#
kan109
你是要這樣嗎?
Sub Ex()
Dim Rng As Range, E As Range
Set Rng = Sheet1.Range("C:C").SpecialCells(xlCellTypeConstants).Offset(, -1).SpecialCells(xlCellTypeBlanks)
For Each E In Rng.Areas
Union(E, E.Offset(-1)).FillDown
Next
End Sub
複製代碼
作者:
kan109
時間:
2010-11-2 18:45
回復
2#
GBKEE
我應該如何使用此公式???感謝萬分
作者:
Hsieh
時間:
2010-11-2 18:56
回復
3#
kan109
基本操作
1.選取b3:b92
2.按F5
3.特殊/空格
4.此時作用儲存格為B5輸入公式=B4
5.按CTRL+ENTER完成輸入
作者:
GBKEE
時間:
2010-11-2 19:21
本帖最後由 GBKEE 於 2010-11-2 19:22 編輯
回復
3#
kan109
這不是公式 是VBA的程式碼
進入VBA的視窗有二如下
[attach]3460[/attach] [attach]3461[/attach]
進入VBA的視窗後 貼上程式碼如圖 請將程式碼 複製後貼上 完成
[attach]3462[/attach]
執行程式碼方法有二
1在VBA的視窗 滑鼠移到程式碼 Sub x() ......之間...... End Sub 按下F5 執行程式碼
2如下二圖
[attach]3463[/attach] [attach]3464[/attach]
作者:
swapjj
時間:
2010-11-3 11:33
GBKEE大大 解釋的好詳細 讓小弟對VBA 有更進一步認識 多謝囉!!
作者:
PD961A
時間:
2010-11-3 12:37
回復
6#
swapjj
其實您可以試著用HS版主所教的基本操作
簡單易懂也實用 ^ ^....
[attach]3473[/attach]
[attach]3474[/attach]
作者:
PD961A
時間:
2010-11-3 12:48
回復
4#
Hsieh
另外請問版主
在育學而網站的第1題自我評量..
如何在15秒內一次將4欄位5萬列資料一次複製完成呢？請將空格填滿
和樓主發的問題一樣
可以請問如何同時全選資料一次複製完成??
謝謝您..
[attach]3475[/attach]
作者:
oobird
時間:
2010-11-3 13:59
即如四樓所示，但略過選取範圍步驟。
全選，F5,特殊/空格, 按"=",按向上鍵，CTRL+ENTER
作者:
PD961A
時間:
2010-11-3 14:09
本帖最後由 PD961A 於 2010-11-3 14:26 編輯
回復
9#
oobird
謝謝 版主
作者:
Hsieh
時間:
2010-11-3 14:28
回復
8#
PD961A
這檔案的空白部份,看似空格,但實際上是有看不見的空白字元(space)
先將space取代成空
再選取a:d欄
編輯/到/特殊/空格
看作用儲存格是哪一格(圖為d6)
輸入=d5
按ctrl+enter完成輸入
[attach]3478[/attach]
作者:
PD961A
時間:
2010-11-3 14:45
回復
11#
Hsieh
版主
先將space取代成空這個動作
怎麼做?
都是空白要打什麼?取代?
[attach]3479[/attach]
[attach]3480[/attach]
作者:
oobird
時間:
2010-11-3 15:03
出現找不到所要找的儲存格，表示看到的空儲存格並不是空的，在大多數情況下你不須要去分辨該儲存格內容到底是什麼，直接在編輯列上反白複製，貼在尋找取代的尋找，按一下全部取代即可！
作者:
PD961A
時間:
2010-11-3 15:18
本帖最後由 PD961A 於 2010-11-3 15:50 編輯
回復
13#
oobird
版主....粉笨
直接在編輯列上
反白複製
，貼在尋找取代的尋找，按一下全部取代即可
這句不會做 = =''
謝謝 ^^....
下載的是同檔案怎麼會不行??
[attach]3481[/attach]
[attach]3482[/attach]
作者:
Hsieh
時間:
2010-11-3 15:58
回復
14#
PD961A
版主不笨
是這檔案缺乏它題目原意
要填滿空格的操作技巧,反而弄些空白鍵害人
尋找目標填入空白鍵(space)
取代成不要填任何字元
全部取代
作者:
oobird
時間:
2010-11-3 15:58
[attach]3483[/attach]
作者:
PD961A
時間:
2010-11-3 16:09
回復
15#
Hsieh
天哪....HS版主
拜託別害我.... = =''''
我沒有說oobird "版主....粉笨"的意思......
謝謝您這篇的指導...
回復
16#
oobird
木工版主
(我發現還是別太省字....誤會真大...)
謝謝您的..GIF
粉笨的人=ME
終於懂了....感恩 ^ ^....
作者:
kan109
時間:
2010-11-3 19:02
感謝 Hsieh , GBKEE 兩位版主教學!
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)
