精华内容
下载资源
问答
  • 如:a=Range(“D10”).row 返回单元格D10所在行号10给变量a range.column属性,返回对象的列号,如果是一个区域返回左上角第一个单元格的列号 如:b=Range(“B2:F5”).column 返回指定区域左上角第一个单元格b2所在...

    ​EXCEL是由很多的对象组成,每个对象都有他的属性和方法,所谓的对象可以理解为所有存在的东西,在同一个程序里的对象之间是存在关系的,比如说上下级关系或同级关系,上下级关系之间用英文句点“.”连接。

    例如:

    application.workbooks(1).worksheets(1).range(“A1”)

    意思就是当前应用程序(excel)下面的已经打开的第一个工作薄下面的第一个工作表里面的A1单元格,但一般情况下我们不需要这么麻烦,如果我们只对当前的表格操作,前面的都可以省略,只需要写range(“A1”)就可以了,如果我们在工作表1中要对同一个工作薄里的工作表2进行操作就要指明工作表,但不需要指定工作薄名,不指定工作薄默认是在同一个工作薄,不指定工作表,默认在同一个工作表,如果我们在第一个工作薄要去操作第二个工作薄就要指定第二个工作薄。除了可以使用数字去指定第几个工作薄或第几个工作表,我们还可以直接指定其名称,这样可以更直接知道是对哪个工作薄或工作表进行操作,前提是要知道它的名称。比如:

    workbooks(“2019年销售记录”).worksheets(“一月份销售记录”).range(“A1”)

    代表一个名为“2019年销售记录”的工作薄里面的一个名为"一月份销售记录"的工作表的A1单元格

    每个对象都有它的属性和方法,对象和属性或方法之间也是用英文的句点“.”连接,比如说一个单元格,宽度多少,高度多少,对齐方式是什么,有没边框,边框是单实线、双实线、还是虚线,有没背景色,什么背景色等,这些都是单元格的属性。我们可以对这些属性进行设置。

    例如:

    rows(1).rowheight=20 指定当前工作表第一行的行高为20磅,所以这个连接的英文句点“.”可以理解为:什么“的”什么。

    对于刚刚开始学习VBA的朋友,建议在VBA代码编辑器的立即窗口中进行练习,进入立即窗口的方法在EXCEL中同时按ALT+F11,打开代码编辑器,如果在打开的编辑器里没看到立即窗口可以按Ctrl+G或点击菜单栏的“视图”》“立即窗口”,就可以打开立即窗口,建议把代码编辑器窗口调节成下图一样,方法及时看到运行结果。

    输入代码并回车会在对应区域中显示结果
    如果当前的活动工作表是打开的第一个工作薄里的第一个工作表,那么下面这几行代码效果是完全一样的。

    Cells(1,1).value

    Range(“A1”).value

    sheets(1).cells(1,1).value=1

    worksheets(1).cells(1,1).value=1

    workbooks(1).worksheets(1).cells(1,1).value=1

    application.workbooks(1).worksheets(1).cells(1,1).value=1

    其中worksheets可以简写成sheets

    如上面的sheets(1).cells(1,1).value=1和worksheets(1).cells(1,1).value=1是完全一样的

    工作表格是EXCEL的基础,那么VBA的基础就是怎么使用VBA对表格进行操作,知道了怎么使用VBA操作当前工作表,以后再要操作其它的工作表或工作薄就容易了。以下是本人对一些基本操作的总结。都是以当前活动工作表为例。

    在指定的区域上进行写入,删除,复制,粘贴,写入公式,填充公式等等,这些都是最基本的操作。这样看来要在表格上干什么都要先指定一个区域,整个表格是表格中最大的一个区域,单元格就是表格中最小的区域,区域可以用range(“区域对象”)来表示。

    比如:

    Range(“A1”).Select 选择A1单元格

    Range(“A1:F10”).Select选择A1到F10区域

    Range(Cells(1, 1), Cells(3, 3)).select 选择A1:C3区域

    Range(“A:A”).Select选择A列

    Range(“A:F”).Select选择A-F列

    RANGE(“A1:D5,F2:G2,H:H”).Select同时选择A1:D5,F2:G2,H列三个指定区域

    Range(“1:1”).Select 选择第一行

    Range(“1:1,8:8,12:12”).Select同时选择第1,第8,第12行

    Range可以用英文中括号[]代替,可以是下面的格式

    Range(“A1”) 可以简写成 [A1]

    Range(“A2:B2”) 可以简写成 [A2:B2]

    但是:

    Range(“1:1,8:8,12:12”) 不能简写成 [“1:1,8:8,12:12”]

    Range(Cells(1, 1), Cells(3, 3)) 不能简写成 [Cells(1, 1), Cells(3, 3)]

    一个工作表由很多的单元格组成,所有的单元格集合在一起用cells表示,所以cells也代表就代所有的单元格,如果要指定某一个单元格只需要在cells后面指定行和列就可以,如:cells(1,1),就代表第一行第一列交叉的单元格A1,后面不指定单元格就代表所有单元格,如cells.select就是选择当前工作表的所有单元格,工作表除了是由单元格组成,同时也是由行或列组成,因此选择单元格或行或列还有都可以有多种,一行或一列也是一个区域,所以也是可以使用range指定的。

    比如下面几种单元格的选择方法

    cells(10).select 选择整个表格里的第10个单元格,顺序是从左到右,再从上到下,这个用法用到的机会并不多

    Cells(1, 1).Select 选择第一行第一列交叉的单元格,就是A1

    Cells使用方法和range使用方法是不一样的,range(“A1”)是以列号字母加行号代表,列号在前行号在后,要以英文双引号""括起来,意味是字符串的形式,cells(1,1),以索引号行号加列号,行号在前列号在后,中间用英文逗号隔开,不用加英文双引号,意味着里面的数字就是数值。

    其实cells还有一个用法,cells(1,“A”).select也是选择A1,这个就有点混血儿的感觉了。前面是行号,数值1,后面是字符列号"A",在编写程序的时候使用cells比使用range更灵活。可以方便使用变量替换.

    cells是不能像range一样直接指定区域的,但可以配合Resize属性指定区域,Resize属性是调整指定区域的大小。

    比如:

    Cells(1, 1).Resize(4, 4).Select 意思是第一行第一列交叉的单元格(就是A1)为左上角第一个单元格向右下调整成一个4*4的单元格区域。相当于range(“A1:D4”)

    Rows是当前工作表所有行的集合,因此也可以使用rows来指定行

    比如:

    Rows(1).select 选择第一行

    Rows.select 选择所有行,和Cells.Select 及 Columns.Select 是同样的效果,相当于选择表格上所有单元格。

    columns是当前工作表所有列的集合

    Columns(1).select 选择第一列

    Columns.Select 选择所有列

    上面说到了怎么选择单元格,行,列,区域,都是直接指定的,有明确目标的,但我们学习VBA就是要实现智能化,自动化,这样的我们就要用到变量来代替,那么怎么用变量来选择区域呢?

    上面的例子有提到,使用range(“A1”)这样的方法来选择是要加英文双引号的,代表是字符串类型,使用cells(1,1)这样的方法来选择的时候是不加双引号的,代表是数值类型。而变量可以代表任意类型,当然也可以手动指定变量是什么类型。如果不指定,那么变量是一个可变的类型,会根据情况自适应类型。不指定类型使用起来好像方便,但可能会存在一些情况。

    一是占用的存储占用空间大,二是运行速度会慢一些,毕竟它每次运行的时候还要判断一下自己应该是哪个类型。三是在给变量赋值的时候它不会检查是否符合类型要求,可能会存在一些未知的错误或冲突,查找起错误的原因会比较困难。比如有两个文本型的数字变量a=“2”,b=“3”,那么可以在立即窗口中分别使用msgbox a + b,msgbox a - b,msgbox a * b,msgbox a / b,看一下结果分别是什么,你会发现,两个变量相减,相乘,相除都是和数值计算一样,但相加就不一样的,a+b结果是23,而不是5,因为+号在VBA中可以用于连接两个字符串。如果你不指定变量的类型,一开始给这个本应该是数值型的变量赋值了一个字符型的数值,在运行的过程中系统不会提示任何错误,这样在发生错误的时候你可以不知道,或发现错误,但查找起来要花费很多时间。

    回到正题,和变量配合使用,要使用符号&进行连接,变量无论是什么类型都是不需要再双引号的。

    使用变量选择Range的方法示例:

    X = 2

    y = 3

    Cells(X, y).Select 选择第2行第3列交叉的单元格

    Range(“a” & X).Select 选择A2单元格

    Range(“a” & X & “:c5”).Select 选择A2:C5区域

    Range(“a1:” & “c” & y).Select 选择A1:C3区域

    Range(“a” & X & “:” & “b” & y).Select 选择A2:B3选择

    下面介绍一下几个Range对象最常用的属性和方法:

    Range.value属性,返回返设置range对象的内容

    如:

    a=Range(“A1”).value 返回单元格A1的值给变量a

    Range(“A1”).value=“姓名” 把A1单元格内容设置为 “姓名”,注意,设置的内容为字符串时需要用英文双引号括起来,数值或变量等其它类型是不用双引号的。

    要把内容设置为公式,要在公式前加一个=号,如下所示,在E2单元格加入求和公式,里面使用了变量来指定求和区域

    Range(“E2”).value = “=sum(A” & t & “😄” & t & “)”

    range.row属性,返回对象的行号,如果是一个区域返回左上角第一个单元格的行号

    如:a=Range(“D10”).row 返回单元格D10所在的行号10给变量a

    range.column属性,返回对象的列号,如果是一个区域返回左上角第一个单元格的列号

    如:b=Range(“B2:F5”).column 返回指定区域左上角第一个单元格b2所在的列号给变量b,注意这里返回的是数值列号不是字母列号,B就是第2列,所以返回的是2

    Range.Select 方法 选择对象

    range(“A1”).select 选择A1单元格

    Range.Clear 方法 清除对象,可使用具体参数指定只清除内容或公式或格式等

    Range(“A1:G37”).Clear 清除A1:G37 单元格区域的内容、公式和格式设置等。

    Range.Copy 方法将单元格区域复制到指定的区域或剪贴板中。如果没指定目标区域将复制到剪贴板。

    下例所示把区域A1:D4复制到 E5开始的同等大小区域。就是复制到E5:H8,可以使用具体参数设置复制粘贴的类型,比如仅复制公式,仅复制值等。

    Range(“A1:D4”).CopyRange(“E5”)

    Range.Delete 方法 删除对象

    RANGE(“A1:D5,F2:G2”).delete 同时删除A1:D5,F2:G2,两个指定区域

    Range(“1:1,8:8,12:12”).delete 同时删除第1,第8,第12行

    Range.Insert 方法 插入

    Range(“1:1,8:8,12:12”).Insert 同时在第1,第8,第12行上面插入一行空白行

    以上列举了小部分常用的对象、属性和方法,每个对象都有不同的属性和方法,不同的属性和方法可能会有多个参数,想要获得详情的属性和方法参数只考帮助文档,在VBA代码编辑器中按F1可打开VBA帮助文档。

    展开全文
  • 不知你有没有这样的困扰:“在行列数很多的表格中查看数据时,希望可以高亮显示选定单元格所在的行列呢?“ 话不多说,直接上效果图。 先前在网上也参考了很多实现方式,个人觉得这个实现方法是比较符合我的需求的...

    HighLightTheRowAndColOfSelectedCells
    不知你有没有这样的困扰:“在行列数很多的表格中查看数据时,希望可以高亮显示选定单元格所在的行列呢?“ 话不多说,直接上效果图。
    先前在网上也参考了很多实现方式,个人觉得这个实现方法是比较符合我的需求的。下面就实现细节,进行说明。
    注:此方法也是网络上参考来的,并非原创,出处已经记不得了。如有侵犯版权,请联系删除。

    功能概要

    1. 可以指定高亮显示的范围;如上图,高亮显示范围为 $B$3:$L$26
    2. 选定单元格可以为1个单元格或多个连续单元格;
    3. 即使选定单元格在 $B$3:$L$26 范围之外,也可正常动作;
    4. 高亮显示的行和列随着选定单元格的变化而动态改变;

    这些功能均可在上面的 GIF 动图中看出。

    实现步骤

    1. 格式为 *.xlsm,且存有数据的Excel表格,用于保存VBA代码;
      Table01
    2. 条件格式 =OR(AND(ROW()>=sRow,ROW()<=eRow),AND(COLUMN()>=sColumn,COLUMN()<=eColumn))
      ConditionFormat01
      ConditionFormat02
    3. VBA代码(因为博客编辑器不支持VBA语法,所以一下代码的关键字和注释不能高亮显示)
    ' 捕捉选定单元格发生变化的事件
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
        If ActiveSheet.Range("A1").Value = 1 Then ' 当A1单元格的值为1时,向工作表添加 名称。
            ActiveWorkbook.Names.Add Name:="sRow", RefersToR1C1:=Target.Row ' 以 R1C1 格式,将选定单元格的首行号赋予 名称sRow
            ActiveWorkbook.Names.Add Name:="eRow", RefersToR1C1:=Selection.Cells(Selection.Cells.Count).Row ' 以 R1C1 格式,将选定单元格的末行号赋予 名称eRow
            ActiveWorkbook.Names.Add Name:="sColumn", RefersToR1C1:=Target.Column ' 以 R1C1 格式,将选定单元格的首列号赋予 名称sColumn
            ActiveWorkbook.Names.Add Name:="eColumn", RefersToR1C1:=Selection.Cells(Selection.Cells.Count).Column ' 以 R1C1 格式,将选定单元格的末列号赋予 名称eColumn
        Else ' 当A1单元格的值为非1时,从工作表中删除 名称。
            On Error Resume Next
            ActiveWorkbook.Names("sRow").Delete
            ActiveWorkbook.Names("eRow").Delete
            ActiveWorkbook.Names("sColumn").Delete
            ActiveWorkbook.Names("eColumn").Delete
        End If
    
    End Sub
    

    VBA capture

    条件格式的公式说明

    =OR(AND(ROW()>=sRow,ROW()<=eRow),AND(COLUMN()>=sColumn,COLUMN()<=eColumn))

    公式中的名称 sRow, eRow, sColumn, eColumn 的意思
    在上面的VBA代码的注释中已经简单说明过,但是,可能光看注释可能还是不明白,因此下面我们结合图片来进行详细说明。

    首先我们任意选定 B3:L26 区域中单元格。因为VBA代码只有在选定单元格发生变化时才会被执行,所以此时VBA代码已经被执行过了。如下图所示,我们可以看到名称管理器中上述的名称已经被自动添加,且名称的值也赋好了。
    Name01
    由此图可看出,我们选定的单元格区域为 D4:E5
    选定区域的首行号为 4,所以 sRow = 4
    选定区域的末行号为 5,所以 eRow = 5
    选定区域的首列(D)号为 4,所以 sColumn = 4
    选定区域的末列(E)号为 5,所以 eColumn = 5

    接着,我们改变选定区域:
    Name02
    由此图可看出,我们选定的单元格区域为 B10
    选定区域的首行号为 10,所以 sRow = 10
    选定区域的末行号为 10,所以 eRow = 10
    选定区域的首列(B)号为 2,所以 sColumn = 2
    选定区域的末列(B)号为 2,所以 eColumn = 2

    至此,sRow, eRow, sColumn, eColumn 的意思已经理清楚了。

    公式中 ROW(),COLUMN() 的意思
    ROW() 返回所参照的行的行号;
    COLUMN() 返回所参照的列的列号;

    到此,我们可以回过头来,重新解读条件格式中的公式。

    =OR(AND(ROW()>=sRow,ROW()<=eRow),AND(COLUMN()>=sColumn,COLUMN()<=eColumn))
    等价可以看作
    =OR(A,B)

    其中
    A= AND(ROW()>=sRow,ROW()<=eRow)
    B= AND(COLUMN()>=sColumn,COLUMN()<=eColumn)

    A 意为 B3:L26 区域中,满足 sRow <= 行号 <= eRow 条件的行;
    B 意为 B3:L26 区域中,满足 sColumn <= 列号 <= eColumn 条件的列;

    因此,整个公式的意思为:
    B3:L26 区域中,只要满足 sRow <= 行号 <= eRow 条件的行,或者满足 sColumn <= 列号 <= eColumn 条件的列,其背景色将会被涂成条件格式中指定颜色。

    以上。

    展开全文
  • 注意事项:第一个代码可以返回多段落选定区域的行号;第二个代码可以返回所选内容的第一个段落中的指定行号的文本内容. Dim LineCount As Integer Sub LinesCount() Dim l As String On Error Resume Next 如果光标未...

    注意事项:第一个代码可以返回多段落选定区域的行号;第二个代码可以返回所选内容的
    第一个段落中的指定行号的文本内容.

     

    展开全文
  • 怎样用VBA查找选定区域内包含某字符串的单元格,并用设定的底色显示
  • 有时候,在进行Excel开发时,需要知道某列的最后一行的行号。Excel也提供了相关功能:Range.End属性。  Dim strCell As String  Dim nLastUseRow As Long ... '为最后一个单元格所在行 , 即
      有时候,在进行Excel开发时,需要知道某列的最后一行的行号。Excel也提供了相关功能:Range.End属性。



        Dim strCell As String
        Dim nLastUseRow As Long
        Dim nLastRcdRow As Long

        Dim Rng As Range

        '为最后一个单元格所在行 , 即最后一行,该函数表示Sheet表的使用区域中的最后一行
        nLastUseRow = Cells.SpecialCells(xlCellTypeLastCell).Row


        ' 得到A列单元格的最后一行
        strCell = "A" + CStr(nLastUseRow + 1)
        
        Set Rng = Range(strCell).End(xlUp)

        nLastRcdRow = Rng.Row' 得到行号




    需要说明的是:Cells.SpecialCells(xlCellTypeLastCell).Row 指的是使用区域最后一行,并不是最后有文本单元格的一行。

    比如:开始我用了100行,随后我又删除了50行,则Cells.SpecialCells(xlCellTypeLastCell).Row = 100。

    当然,如果你保存了文件,Cells.SpecialCells(xlCellTypeLastCell).Row = 50 了。


    所以,可以通过联合Range.End属性实现快速定位到最后一个单元格上。


    具体帮助说明:(Excel Help)

    返回一个  Range 对象,该对象代表包含源区域的区域尾端的单元格。等同于按键 End+ 向上键、End+ 向下键、End+ 向左键或 End+ 向右键。 Range 对象,只读。

    语法

    表达式.End(Direction)

    表达式   一个代表 Range 对象的变量。

    参数

    名称必选/可选数据类型描述
    Direction必选XlDirection所要移至的方向。

    示例

    本示例选定包含单元格 B4 的区域中 B 列顶端的单元格。

    Visual Basic for Applications
    Range("B4").End(xlUp).Select

    本示例选定包含单元格 B4 的区域中第 4 行尾端的单元格。

    Visual Basic for Applications
    Range("B4").End(xlToRight).Select

    本示例将选定区域从单元格 B4 延伸至第四行最后一个包含数据的单元格。

    Visual Basic for Applications
    Worksheets("Sheet1").Activate
    Range("B4", Range("B4").End(xlToRight)).Select

    指定移动的方向。

    版本信息
     已添加版本:
      Excel 2007

                     名称                           值                    描   述                
    xlDown-4121向下。
    xlToLeft-4159向左。
    xlToRight-4161向右。
    xlUp-4162向上。

    展开全文
  • 问题一:在VBA代码中,如何引用当前工作表中的单个单元格(例如引用单元格C3)? 回答:可以使用下面列举的任一方式对当前工作表中的单元格(C3)进行引用。 (1) Range("C3") (2) [C3] (3) Cells(3, 3) ...
  • 33.从工作表第一的标题文字以数字形式返回所在列号 34.在多个工作表中查找一个范围内符合某个指定条件的项目对应指定范围加总求和 35.返回 Column 英文字 36.查找指定列名的列数 37.文字格式的时间(分:秒)转化为...
  • Word表格之VBA知识

    千次阅读 多人点赞 2019-01-28 13:56:10
    Tables集合包含了指定的选定内容、范围或文档中的所有表格。 下面是Table的常用方法(注意是部分,不是全部,只例出重要的方法,下面的属性皆如此,如果详细面全部的了解,请看Word VBA自带的帮助。VBAWD10.chm) ...
  • Excel VBA编程

    万次阅读 多人点赞 2019-04-11 16:45:51
    文章目录如何创建VBAVBA语法规则声明变量给变量赋值让变量存储的数据参与运算关于声明变量的其他知识变量的作用域特殊的变量——数组声明多维数组声明动态数组其他创建数组的方法数组函数利用UBound求数组的最大索引...
  • Excel VBA实用技巧大全 附书源码

    热门讨论 2010-10-08 18:59:24
    04168隐藏、显示某单元格所在或列 04169隐藏、显示单元格区域 04170单元格区域自动套用格式 04171选定单元格 04172选定单元格,并显示在窗口的左上角处 04173激活单元格 04174合并单元格 04175取消单元格的合并 ...
  • Word VBA 常用语句

    2019-07-26 14:36:09
    原文地址:WordVBA常用语句作者:cathay 转帖:从n多地方google出来的。。。。。。。。。 '定制模块行为 '(1)强制对模块内所有变量进行声明 Option Explicit '标记模块为私有,仅对同一工程中其它模块有用,在宏...
  • # Excel VBA编程常用语句300句 * 本文转自:**http://blog.sina.com.cn/codelee** 博主:**代码农夫** 感谢大佬总结并分享出来~ ************** # * VBA 语句集 * * (第 1 辑) * ************** ***************...
  • VBA编程常用语句(转载) 1、Option Explicit '强制对模块内所有变量进行声明 Option Private Module '标记模块为私有,仅对同一工程中其它模块有用,在宏对话框中不显示 Option Compare Text '字符串不区分大小写 ...
  • VBA笔记

    千次阅读 2020-05-15 08:46:27
    打开VBE即编写VBA的IDE的快捷键 ALT+ F11 提示代码 CTRL+j 在代码窗口VBA.会自动列出所有的函数 在VBE的帮助中输入对象模型就能看到对象的关系了 引用类型 $A$1 //绝对引用,复制公式时不改变单元格地址 ...
  • excel vba 数据分析

    千次阅读 2019-01-20 12:20:00
    VBA(Visual Basic for Application)是Microsoft Office系列软件的内置编程语言,其语法结构与Visual Basic编程语言互相兼容,采用的是面向对象的编程机制和可视化的编程环境。 第一节 标识符 一.定义 标识符是一...
  • VBA基础

    2020-07-04 10:41:08
    VBA基础 目录对象语法规则VBA常见的数据类型数据类型声明判断语句循环语句结束语句跳转语句错误分支重复利用对象公式与函数运算符禁止/允许弹出警示窗口立即debug运行窗口输出VBA字典技术(类)正则表达式工作簿与...
  • VBA取某一列所使用的单元格数

    千次阅读 2017-01-04 13:15:06
    本示例将选定区域从单元格 B4 延伸至第四最后一个包含数据的单元格。 Worksheets("Sheet1").Activate (本文来源于图老师网站,更多请访问http://www.tulaoshi.com) Range("B4", Range("B4").End...
  • EXCEL VBA 常用语句

    千次阅读 2017-07-10 13:48:08
    (45) ActiveSheet.UsedRange.Row ‘获取单元格区域中使用的第一行号 (46) Application.WorksheetFunction.IsNumber(“A1”) '使用工作表函数检查A1单元格中的数据是否为数字 (47) Range(“A:A”).Find...
  • Excel的VBA使用

    2019-03-13 14:06:48
    1. 打开VBA代码窗口:工作表右键--&gt;查看代码 2. 创建写代码的地方:菜单栏--&gt;插入--&gt;模块 3. 写代码 代码格式:Sub 程序名(参数)可以执行任务的代码End Sub 例子: Sub test() ...
  • EXCEL VBA 备忘录

    2018-02-06 09:25:30
    VBA中的通配符: * ? #(任意一个数字) [charlist](代替位于charlist中的任意一个字符) [!charlist](代替不在charlist中的任意一个字符) 逻辑运算符: and=与 or=或 not=非 xor=异或 eqv=等价 imp...
  • (3) On Error Resume Next '忽略错误继续执行VBA代码,避免出现错误消息 (4) On Error GoTo 100 '当错误发生时跳转到过程中的某个位置 (5) On Error GoTo 0 '恢复正常的错误提示 (6) Application.DisplayAlerts=False...
  • EXCEL VBA常用语句100句

    千次阅读 2009-07-31 10:23:00
    以下转自:http://www.bbioo.com/blog/bio/guohui/1524.htm  EXCEL VBA常用语句100句定制模块行为Option Explicit 强制对模块内所有变量进行声明*****Option Private Module 标记模块为私有,仅对同一工程中其它...
  • 'row_d = Worksheet.Range(CNtoW(j) & "65536").End(xlUp).Row '从65536往上获取最后一不为空的行号 For i = 1 To row_d text = CStr(Worksheet.Cells(i, j).Value) text_trim = Trim(text) '使用内置函数去除...
  • 基于Office的开发-VBA

    千次阅读 2010-08-22 20:48:00
    原来微软还针对Office推出了用于Office再开发的基于VB的VBA。它是有VB发展来的针对Office的编程语言,可以直接在Office中编写程序,运行,语法跟VB一样。结构清晰,简单易学,有程序设计基础的人很快就能上手。下面...
  • VBA学习

    千次阅读 2009-12-31 15:13:00
    第一章 VBA语言基础  第一节 标识符  一.定义  标识符是一种标识变量、常量、过程、函数、类等语言构成单位的符号,利用它可以完成对变量、常 量、过程、函数、类等的引用。 二.命名规则  1) 字母打...
  • Excel VBA编程常用语句300句

    万次阅读 多人点赞 2011-10-28 12:04:41
    Excel VBA编程常用语句300句 ************** * VBA 语句集 * * (第 1 辑) * ************** **************** * 定制模块行为 * **************** (1) Option Explicit '强制对模块内所有变量进行声明 ...
  • VBA——短代码100句

    2019-04-18 08:49:06
    (1) Option Explicit '...(3) On Error Resume Next '忽略错误继续执行VBA代码,避免出现错误消息 (4) On Error GoTo 100 '当错误发生时跳转到过程中的某个位置 (5) On Error GoTo 0 '恢复正常的错误提示 (6) Applica...
  • VBA常用功能函数集

    千次阅读 2014-12-22 10:46:55
    (55) ActiveSheet.UsedRange.Row ‘获取单元格区域中使用的第一行号 (56) Rng.Column ‘获取单元格区域Rng左上角单元格所在列编号 (57) ActiveSheet.Cells.SpecialCells(xlCellTypeAllFormatConditions) ...

空空如也

空空如也

1 2 3 4 5 ... 15
收藏数 293
精华内容 117
关键字:

vba怎么选定行号所在的行