VBA常用代码合集

Tp0️⃣—零零散散小功能（持续更新）

• 剪切列
• 替换字符
• 取消复制剪切状态
• 浮点数向上取值
• 区域添加边框
• 区域设置颜色
• 调整列宽、行高
• 待更新

'  小功能集合
Sub Demos()

	'	剪切一列到指定列
	With ThisWorkbook.Sheets(2)    
		.[AI:AI].Cut    
		.[AE:AE].Select    
		Selection.Insert Shift:=xlToRight
	End With

	'	替换字符，将（空白）替换为空
	With worksheet.[C:C]
		.Replace "(空白)", ""
	End With
	
	'	取消复制剪贴状态
	Application.CutCopyMode = False
	   
	'	将带有小数的数据向上取整
	NewData = Application.WorksheetFunction.RoundUp(Datas, 0)

	' 	单元格区域添加边框
	.Range("A4:N" & .Range("A9999").End(xlUp).Row).Borders.LineStyle = xlContinuous

	'  -------------单元格标色-------------
	'  指定区域标色
	With Range("C2:G9")
    	.Interior.ColorIndex = 0	' 无填充颜色
     	.Interior.ColorIndex = 3	' 红色
     	.Interior.ColorIndex = 5	' 蓝色              
    End With
    
	' 实现自动调整行高、列宽
	Rows("1:5").EntireRow.AutoFit			' 调整1至5行行高
    Columns("A:AA").EntireColumn.AutoFit    ' 调整A至AA列列宽
    ' 设置行高、列宽为固定值
    Rows("1:5").RowHeight = 15				' 设置1至5行行高为15
    Columns("A:AA").ColumnWidth = 15		' 设置A至AA列列宽为15

End Sub

颜色索引-Range属性

Tp1️⃣—输出活动页面筛选后的行数

' 获取活动页面筛选后的行数
Sub RowCntAfterFilter()

    Dim rngCell As Range
    Dim lngRowCnt As Long
    For Each rngCell In [a1].CurrentRegion.SpecialCells(xlCellTypeVisible).Areas
        lngRowCnt = lngRowCnt + rngCell.Rows.Count
    Next rngCell
	rows_count =  lngRowCnt - 1   '可视区行数
    MsgBox "筛选后数据行数为：" & rows_count 
    Set rngCell = Nothing
    
End Sub

Tp2️⃣—创建数组存放数据

通过数组可以快速对数据进行处理
前提：表格数据须规范，不考虑合并单元格
一维数组：数字(1,2,3,4)，字符串(a,b,c,d)
二维数组：((1,1),(1,2),(1,3),(2,1),(2,2),(2,3)) 表格结构、行列转置、计算、遍历、统计…
多维数组：不是很熟悉，不敢乱说（￣□￣｜｜）
简单介绍静态数组、动态数组