摘要：With Worksheets("Data").Columns("G:G") Set c = .Find(Worksheets("Data").Cells(mrgRow, 2).Value, LookIn:=xlValues) If Not c Is Nothing Then firstAddress = c.Address Do msgbox (c.Row) Set c = .FindNext(c) Loo... 阅读全文

摘要：chr(9)、chr(10)、chr(13)、chr(32)、chr(34)1、所有关于 ASCII码的表格chr(13) 是一个回车Chr(10) 是个换行符chr(32) 是一个空格符chr（9）　是tab，2、回车的作用是回到当前行的首列。换行就是切换到一行。 VB中一般用vbCrLf来代替chr（10）+chr（13）3、那如果我只用回车符或者换行符会出现什么情况呢？效果是一样的。现在的语言会经过转换的，自动变成“回车换行”的。如果用汇编就可以看出效果了4、 vbNewLine 和上面划等号 阅读全文

摘要：Sub copySheet() Dim wkbk As Workbook Set wkbk = Workbooks.open("源文件.xls") '先打开要复制的文件 wkbk.sheets(1).Copy thisworkbook.sheets(1) '再将此文件中第一个工作表复制到当前工作簿的第一个工作表前 End Sub 这样是最简单的代码了，但是有些限制：如果工作表的某些单元格中字符数超过255个，则副本的该单元格中只保留前255个字符。 如果复制源文件中第一个工作表内容到当前工作簿第一个工作表中，用下列代码： Sub copySheet() Di 阅读全文

摘要：前段时间做的一个项目（Vista print）中需要将列号转为列名（例如：第26列应该是第Z列）。那137或者185列应该是哪列呢？总不能就这么数下去吧。 最后写了个Funtion解决这一问题。代码如下：Public Function NumToChr(PureNum As Integer) As String If PureNum Mod 26 = 0 Then NumToChr = VBA.IIf(PureNum \ 26 = 1, "", VBA.Chr(PureNum \ 26 + 63)) & "Z" Else NumToChr = V 阅读全文

摘要：定制模块行为 (1) Option Explicit ‘强制对模块内所有变量进行声明 Option Private Module ‘标记模块为私有，仅对同一工程中其它模块有用，在宏对话框中不显示 Option Compare Text ‘字符串不区分大小写 Option Base 1 ‘指定数组的第一个下标为1 (2) On Error Resume Next ‘忽略错误继续执行VBA代码,避免出现错误消息 (3) On Error GoTo ErrorHandler ‘当错误发生时跳转到过程中的某个位置 (4) On Error GoTo 0 ‘恢复正常的错误提示 (5) Applic... 阅读全文

摘要：1、声明数组。数组的声明方式和其它的变量是一样的，它可以使用Dim、Static、Private 或 Public 语句来声明。标量变量（非数组）与数组变量的不同在于通常必须指定数组的大小。若数组的大小被指定的话，则它是个固定大小数组。若程序运行时数组的大小可以被改变，则它是个动态数组。数组是否从0 或1 索引是根据Option Base 语句的设置。如果Option Base 没有指定为 1，则数组索引从零开始。（1）声明固定大小的数组下面这行代码声明了一个固定大小的数组，它是个 11 行乘以 11 列的 Integer 数组：Dim MyArray(10, 10) As Integer（2 阅读全文