VBA代码学习
来源:互联网 发布:php 500错误如何排查 编辑:程序博客网 时间:2024/06/08 09:50
Sub FA() '定义子过程
Application.ScreenUpdating = False '屏幕内容不更新
Application.Calculation = xlManual '关闭自动计算
Set DicLA = CreateObject("scripting.dictionary") '创建字典DicLA
Set DicLB = CreateObject('scripting.dictionary') '创建字典DicLB
............
Set RansorA = Sheets("Sheet1").Range(Sheets("Sheet1").Cells(p,2), Sheets("Sheet1").Range(Sheets("Sheet1").Cells(p,9)) '将sheet1中p行2列到9列的数据赋给RansorA
Set RansorB = Sheets("Sheet2").Range(Sheets("Sheet1").Cells(p,38), Sheets("Sheet1").Range(Sheets("Sheet1").Cells(p,45)) '将sheet1中p行38列到45列的数据赋给RansorB
RansorA.Copy '将RansorA中的内容复制到剪贴板
RansorB.PasteSpecial Paste := xlPasteValues '将剪贴板中的内容复制到RansorB
阅读全文
0 0
- Excel VBA代码学习
- VBA代码学习
- vba 代码
- 学习vba
- VBA学习
- VBA 学习
- VBA学习
- VBA学习
- 学习VBA
- VBA中的一些代码
- VBA实用代码拾零
- 加密 VBA 代码模块
- 经典Excel VBA代码
- 经典Excel VBA代码
- VSTO运行VBA代码
- VBA入门代码尝试。
- 调试Excel VBA代码
- VBA代码收集
- Visual Studio2015下配置Halcon环境(使用的是VS下的C#)
- ThreadLocal用法及与Synchronized的区别
- 使用函数输出指定范围内的完数
- SQL基础
- 不得不知道的微信小程序避坑指南
- VBA代码学习
- MAC 卸载MySQL
- 关于开源的RTP——jrtplib的使用
- python的正则出错——raise error:("multiple repeat ")
- JAVA 强制数据类型转换和隐式数据类型转换
- vim 学习笔记(分割窗口)
- /双向队列
- apache重写机制& ubuntu apache启动报错 除开主页全是404
- signal 与 APC