VBA的几点实用技术

1．行列交互

=INDEX(A1:A9,COLUMN(A1))

2．削除警告不非表示

application.displayalerts =false

……

application.displayalerts =true

'3．多行挿入

Range("6:25").Insert Shift:=xlDown

'4．行削除

Worksheets("Sheet1").Rows(6).Delete

5．Map利用(●)

Set d = CreateObject("scripting.dictionary")

http://www.geocities.jp/cbc_vbnet/Scripting/dictionary.html#dictionary

6．Class类利用

和java类似，定义好了，可以用new

7．操作１行的Rang数据

Dim myRange As Range

Set myRange = Range("A1:M1")

myRange.Select

myRange.Cells(1) = 3

myRange.Cells(6) = 6

8．格式设定（合并、网格线、Cell色）

可"录制宏参照其代码

'9．取得最终行

Worksheets("Sheet1").Activate

Worksheets("Sheet1").Select

Debug.Print Worksheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row

'10. 多列拆分

Set myRange = Range("A12:A16")

'行番号は、Excelの実際番号ではなく相対番号です

myRange.Cells(1, 1) = "商品番号 , 商品名, 単価, 数量, 日付"

myRange.Cells(2, 1) = "003, みかん, 30, 8, 2008/5/12"

myRange.Cells(3, 1) = "001, りんご, 100, 5, 2008/5/12"

myRange.Cells(4, 1) = "005, すいか, 500, 1, 2008/5/12"

myRange.Cells(5, 1) = "002, ばなな, 50, 10, 2008/5/12"

Dim cellFormat(4) As Variant

cellFormat(0) = Array(1, xlTextFormat)

cellFormat(1) = Array(2, xlGeneralFormat)

cellFormat(2) = Array(3, xlGeneralFormat)

cellFormat(3) = Array(4, xlGeneralFormat)

cellFormat(4) = Array(5, xlYMDFormat)

myRange.TextToColumns _

DataType:=xlDelimited, _

TextQualifier:=xlDoubleQuote, _

Comma:=True, _

FieldInfo:=cellFormat

也可以用

' FieldInfo:=Array(Array(1, 2), Array(2, 2), Array(3, 1), Array(4, 1), Array(5, 5))

'11. Sheet数据排序Sort、过滤Filter

AutoFilter： http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_autofilter.html
AuSort： http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_sort.html
也 可参照Excel帮助