今天又來學習新技巧.

動機 -

好幾千筆的資料, 因為要用 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:

EXCEL - 如何將文字轉變成數字

http://xiaolaba.pixnet.net/blog/post/257336993

arrow
arrow
    全站熱搜

    xiaolabaDIY 發表在 痞客邦 留言(2) 人氣()