2019年2月23日 星期六

excelVBA巨集語法

@用鍵盤取代滑鼠選取整片範圍:先點選左上角
        Ctrl+ Shift+ 箭頭右; Ctrl+ Shift+ 箭頭下
    VBA寫法
    Range(Selection, Selection.End(xlDown)).Select
     Range(Selection, Selection.End(xlToRight)).Select@跳出整片範圍至範圍下一列:Ctrl+ 下 (按下二次)
@excel新增一列資料於最後一筆資料後面
    Range("A1").Select
    Selection.End(xldown).Select
    工作表3.Range("A" & ActiveCell.Row + 1).Value= "aaaaaa"
    或者{  Sheets("工作表3").Range("A" & ActiveCell.Row + 1).Value= "aaaaaa"  }
@直接跑到表格最右下角(最後)的資料:Ctrl +End
    Range("A1").Select
       ActiveCell.SpecialCells(xlLastCell).Select
@取得選擇欄位該cell位在第幾列數  i=ActiveCell.Row
@使用第一欄的內容去跑廻圈,(要先知道第一欄最後一列)
        aaaEnd= ranges("A2").End(xlDown).row
             For i = 2 to aaaEnd Step 1  ....


沒有留言:

張貼留言

  https://www.youtube.com/watch?v=kkbEcsHke9k 那時間還沒到我不太會去設定這個那在7分鐘之後就開始我先去休息一下 The Nha Trang I'm going to make a table. 1 tbs of butter ...