Excel如何自動填值?

自動填值

symis 2009-11-20 16:45:32 ‧ 11048 瀏覽

分享至

請問Excel2003如何自動如下填值?
ex:
代號名稱

13 as
egr
ew
239 a
ddd

請如如何將空的代號,自動填上一個值?
使結果如下:
代號名稱

13 as
13 egr
13 ew
239 a
239 ddd

thanks!

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

2 個回答

海綿寶寶

iT邦大神 1 級 ‧ 2009-11-20 17:02:49

最佳解答

游標移到 13, 239 的右下角
使得游標變成「粗體十字」時
double click 即可
如下二圖所示

回應 3
分享
檢舉

symis iT邦新手 3 級 ‧ 2009-11-23 09:22:15 檢舉

這個我知道啦,我是問,大量的話,如何用函數或巨集「自動」完成?
感謝哦!

海綿寶寶 iT邦大神 1 級 ‧ 2009-11-23 10:16:34 檢舉

Sub AutoFill()
Range("A1").Select
sKey = ""
bStop = False
Do
If ActiveCell.Range("B1").Value = "" Then
bStop = True '結束條件一為「B欄為空值」
Else
If ActiveCell.Value <> "" Then '若A欄有值則記錄下來
sKey = ActiveCell.Value
Else '若A欄沒值則填入之前記錄的值
ActiveCell.Value = sKey
End If
If ActiveCell.Row = 65536 Then '結束條件二為「到達試算表底部」
bStop = True
Else
ActiveCell.Range("A2").Select '移到下一列
End If
End If
Loop Until bStop = True
End Sub

symis iT邦新手 3 級 ‧ 2009-11-24 13:32:41 檢舉

本來run的結果,沒動作,後來發現限制:data需在第1列,否則不動作,能否解除此限制?
thanks!

登入發表回應

pth

iT邦新手 5 級 ‧ 2009-11-23 09:38:31

試試使用尋找空格的功能? 步驟為:

*. 點欄位 A ，反白所有 A 欄位的值

*. Edit -> Go to -> 選 special ，再點選 blanks

*. 這時候會反白所有 A欄位下的空白欄位，
並且焦點應該會停留在 A2 (A1是13)，輸入" = A1 "後，按下 ctrl+enter

完成。

回應 3
分享
檢舉

symis iT邦新手 3 級 ‧ 2009-11-24 13:38:23 檢舉

沒想到不用函數或vba也能完成,只能說,大大,有厲害到!
感謝!

symis iT邦新手 3 級 ‧ 2009-11-25 10:46:23 檢舉

to pth,
我要想選你的為最佳解答的,怎按錯了,真瞎!
sorry sorry!

pth iT邦新手 5 級 ‧ 2009-11-26 21:28:42 檢舉

Don't mind
問題解決就好

登入發表回應

我要發表回答

立即登入回答

參賽組數

1123 組

團體組數

52 組

累計文章數

23096 篇

完賽人數

656 人

15th鐵人賽 13th鐵人賽 14th鐵人賽 12th鐵人賽 11th鐵人賽鐵人賽 2019鐵人賽 2018鐵人賽 javascript 2017鐵人賽 python windows php c# windows server linux css 程式設計 react vue.js

IT邦幫忙