Excel如何自動填值?

自動填值

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

分享至

請問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