常用的一些vba代码

数组赋值给单元格区域

Sub suijishu() '随机数Dim shuzu(1 To 50000, 1 To 20) As Variant '定义数组，注意是从1开始的Dim hang As LongDim lie As LongRandomizeFor hang = 1 To 50000For lie = 1 To 20shuzu(hang, lie) = Rnd()Next lieNext hang'数组赋值给单元格区域Sheet1.Range(Cells(1, 1), Cells(50000, 20)) = shuzuEnd Sub

下面的代码是没有优化的代码，功能与上面一样（执行时间非常长）

Sub suiji2()Dim hang As LongDim lie As LongRandomizeFor hang = 1 To 50000For lie = 1 To 20Sheet2.Cells(hang, lie) = Rnd()Next lieNext hangEnd Sub

即便是前后增加关闭显示，效率提升也很有限。

运行时间

详细代码如下


Sub suiji3()Dim time1 As SingleDim time2 As Singletime1 = TimerDim hang As LongDim lie As LongRandomizeFor hang = 1 To 50000For lie = 1 To 20Sheet2.Cells(hang, lie) = Rnd()Next lieNext hangtime2 = TimerDim timecha As Singletimecha = (time2 - time1)MsgBox "运行时间" & timecha & "秒"End Sub

另外的一段代码

对内容进行处理之后再赋值到相应的表格

参考代码如下

’参考代码https://blog.csdn.net/iamlaosong/article/details/46878321
Sub fuzhi() '大数据复制Dim shuzu() ' As Variantshuzu = Sheets(1).Range(Sheets(1).Cells(1, 1), Sheets(1).Cells(50000, 20)).Value'shuzu = Sheet1.Range(Sheets(1).Cells(1, 1), Sheets(1).Cells(50000, 20)).Value  '注意此句无法通过Dim shuzu2(1 To 50000, 1 To 20) As Variant '定义数组，注意是从1开始的Dim hang As LongDim lie As Long'此循环内可以添加相应的计算For hang = 1 To 50000For lie = 1 To 20shuzu2(hang, lie) = shuzu(hang, lie)Next lieNext hang'数组赋值给单元格区域Sheets(3).Range(Cells(1, 1), Cells(50000, 20)) = shuzu2End Sub

大数据分拣


Sub fuzhi() '大数据复制Const DEF_CGQSL As Long = 14    '定义 传感器数量Const DEF_TiaoM As Long = 35000  '定义 处理条目Dim DEF_BiaoGZHS As LongDEF_BiaoGZHS = 1 + DEF_CGQSL * DEF_TiaoMDim shuzu()  As Variantshuzu = Sheets(1).Range(Sheets(1).Cells(2, 1), Sheets(1).Cells(DEF_BiaoGZHS, 26)).ValueDim i As LongDim hang As LongDim book2hang As Longbook2hang = 1Dim Low1 As LongDim Up1 As LongLow1 = LBound(shuzu, 1) '1Up1 = UBound(shuzu, 1) 'hangDim Low2 As LongDim Up2 As LongLow2 = LBound(shuzu, 2) '1Up2 = UBound(shuzu, 2) '26Dim shuzu2(1 To DEF_TiaoM + 1, 1 To 26 * DEF_CGQSL) As Variant '定义数组，注意是从1开始的
'Dim cgq As LongFor cgq = 1 To DEF_CGQSLbook2hang = 1For hang = cgq To DEF_BiaoGZHS Step DEF_CGQSLFor i = 1 To 26'If (hang > 149950) Then Debug.Print hangIf hang <= DEF_BiaoGZHS And book2hang < DEF_TiaoM Thenshuzu2(book2hang, i + (cgq - 1) * 26) = shuzu(hang, i)End IfNext ibook2hang = book2hang + 1Next hangNext cgq
'book2hang = 1'数组赋值给单元格区域Sheets(2).Range(Cells(1, 1), Cells(DEF_TiaoM + 1, 26 * DEF_CGQSL)) = shuzu2End Sub

删除空行

sub  删除空行()Sheets(1).Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
end sub

anlog 2021年3月24日00点46分

特此记录

常用的一些vba代码相关推荐

vba代码编程800例_VBA编程常用“积木”过程代码Address的含义
蓝字关注,加微信NZ9668获资料信息 VBA解决方案系列丛书作者头条百家平台 VBA资深创作者 _______________________________ 大家好,今日继续和大家分享 ...
vba代码编程800例_一组实用的VBA常用编程代码语句分享
蓝字关注,加微信NZ9668获资料信息 VBA解决方案系列丛书作者头条百家平台 VBA资深创作者 _______________________________ 分享成果,随喜真能量.大家 ...
vba代码编程800例_VBA编程常用过程代码实例2630
蓝字关注,加微信NZ9668获资料信息 VBA解决方案系列丛书作者头条百家平台 VBA资深创作者 _______________________________ 分享成果,随喜真能量.大家 ...
datetimepicker控件怎么改变hover颜色_VBA入门课程，ActiveX控件系列知识，复合框的属性与常见VBA代码...
前面的几篇图文,咱们讲了关于VBA二次开发的一些控件,这次咱们继续说一个控件.combobox控件,中文的翻译名叫做复合框.在这里咱们要与checkbox做一个区分,combobox是复合框,而che ...
vba定义全局变量并赋值_利用VBA代码如何打开任意程序
大家好,后疫情时代一定会到来,各行各业,都将是一场战胜萧条的无声的战役.无论怎样,我们一定要坚信,疫情终将会过去,曙光一定会到来.后疫情时代将会是一个全新的世界,很多理念都将被打破,大多数人不会再享受 ...
keil debug如何在watch直接修改变量值_零基础学VBA：什么是VBA？如何编写和运行VBA代码？...
HI,大家好,我是星光,今天咱们来继续学习VBA.在上一章咱们讲了为什么要学习VBA~VBA还值不值得学~学了还有没有用~零基础学VBA编程01:VBA还能不能学?学了还有没有用? 这一章咱们再来简单 ...
查询时拼接两列数据_如何用VBA代码查询两列数据差异？
爱就一个字,我只说一次-- 北京市第三交通委提醒您:代码千万条,注释第一条,命名不规范,修订两行泪-- 咳,给大家拜晚年了,再提前祝大家元宵快乐-- 我们今天和大家分享的内容是如何用VBA代码查询两列 ...
vue 前台文本修改触发事件_利用VBA代码禁用触发事件及对工作薄修改的保存方案...
分享成果,随喜真能量.大家好,今日内容仍是和大家分享VBA编程中常用的简单"积木"过程代码,这些内容多是取至我的"VBA代码解决方案"教程中内容.NO.143- ...
给表中指定位置添加字段_利用VBA代码，轻松完成向工作表中添加指定图片到指定位置...
VBA++ 题记:一剪闲云一溪月,一程山水一年华.一世浮生一刹那,一树菩提一烟霞.岁月静好,现世安稳.纵算云水漂泊,心若安宁,亦可淡若清风.希望见者与不见者都能安康.静下心,多学习有用的知识,多提高自 ...
vba显示正在加载_利用VBA代码显示工作簿的路径及完全路径的方案及对工作薄的操作...
分享成果,随喜真能量.大家好,今日内容仍是和大家分享VBA编程中常用的简单"积木"过程代码,这些内容多是取至我的"VBA代码解决方案"教程中内容.NO.139- ...

常用的一些vba代码

常用的一些vba代码相关推荐

最新文章

热门文章