今天又來學習新技巧.
動機 -
好幾千筆的資料, 因為要用 VLOOKUP 查表, 原來的 46XXXX 以數字的形式記錄. 需要在其前面加上單引號, 強迫紀錄成文字完成VLOOKUP 查表. 試過修改以文字格式儲存, 不成功. 看看上圖, 初步了解疑難.
作法 -
看上圖, 首先以 [錄製新巨集] 的方法, 目標在於建立一個空白的巨集模組.
看上圖, 改個好記的巨集名稱, 按 [確定], 然後可以馬上停止錄製. 這樣就已經建立好了一個空白的巨集模組, 名稱也會容易記得, 後面會用到.
打開 VISUAL BASIC 編輯器, 將會看到已經建立的空白巨集模組.
看上圖, 已經開啟的巨集後, 加上以下的簡單程序.
copy the below—————————
最大的行號 = Cells.Find(What:=”*”, SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
最大的列號 = Cells.Find(What:=”*”, SearchDirection:=xlPrevious, SearchOrder:=xlByColumns).Column
Do While ActiveCell.Row <= 最大的行號
‘在數字的前面加上單引號, 結果存到相鄰的空格內
ActiveCell.Offset(0, 1).FormulaR1C1 = “’” & ActiveCell.Value
‘移到下一格
ActiveCell.Offset(1, 0).Select
‘不斷的重複一上的動作, 直到最後一行
Loop
copy the above—————————
基本上已經完成所有前期工作, 接下來就要體驗一下如何把重複的工作交由電腦處理. 看圖識字. 當點選完空白的地方後, 先按 F8 兩次, 並留意屏幕的變化.
看到有些黃色的顯示如下圖, 證明你的程序輸入完全正確.
繼續按 F8 多次, 留意到屏幕內紅色框框位置的變化沒有?? 假如你很快已經厭倦繼續按F8的話, 直接按F5, 一陣過後, 幾千筆的資料就會轉換好備用.
後話 -
其實, 很多其他的方法都可以達成以上的目標, 這只是其一.
REF:
留言列表
