图片 12

Excel怎么样在一列中显示出办事薄中全部专门的学业表的名称,宏本事集绵

k = k + 1

     Dim x As Integer, k As Integer

—>运行

                                                                                

For Each sh In Sheets

     Sub t2()

『看完有收获点个赞吧- -😌』

 

(1)一般遇到需要获取sheet_name的情况是:

        Select Case Range(“a1”).Value

在一列中显示工作薄的所有工作表的名称,不使用VBA的解决方案下如:

  End Sub

获取一个工作簿里面所有的sheet_name?

    F、工作表的保存

一开始没有很好的简化式命名sheet_name,sheet_name中没有统一的格式,还会有空格等这种情况。

       End If

图片 1

    Loop

回答:

     End Sub

1、宏表函数

           Sheets(“模板”).Copy before:=Sheets(1)

Cells(k, 1) = sh.Name

17、Excel文件操作的几个概念

回答:

         wn = Application.Caller.Parent.Name

回答:

      b、Exit function语句

相当于建个目录索引,函数和代码都可以的

D、 excel文件打开和关闭  

图片 2回答:

                                                    图7 运行结果

第一步,选建立名称变量,如下图,先点击按钮,在弹出的对话框中输入名称变量“A”,引用位置处输入公式“=get.workbook(1)”.

        End If

Next

      Sheets(“A”),名称为A的excel工作表

图片 3

    a 注释文字的设置

问题:Excel如何在一列中显示出工作薄中所有工作表的名称?

14.函数与公式

End Sub

     Sub t6()

第二步,设置公式 ,在工作表B1中设置公式
“=INDEX(A,ROW(A1))”,鼠标移至B1单元格右下角,待光标变成黑色十字光标后,按住鼠标左键向下拖动复制公式,最终效果如下:

      Range(“a1”).Value = 100     ’给单元格a1填充数值100

2、使用VBA,都可以的

      Range(“d3”) = Range(“b3”) * Range(“c3”)   ’将b3单元格与c3单元格相乘并赋值给d3单元格

可以使用链接功能,做成目录,查找也方便,再在每张表中设返回键直接返回目录。

(注:为了提高word2010中插入的图片的质量,“文件”——“选项”——“高级”——选中“不压缩文件图像质量”——“确定”。)

Sub a()

     Activecell 正在选中或编辑的单元格

没有合理应用工作簿,有些只是为了“方便”,一个工作簿建了50个以上的sheet,其实这种分类做法真的给你的效率打折扣的!

     Next x

难度指数:♢

    End Sub

在未知sheet个数的情况首选VBA:

         Exit Sub

这个问题可以简化为:

7.VBA对象

新建一个表,新建宏,输入下面代码:

                                           
                                                           
                                

回答:

        End Sub

  图片 4

F、利用VBA函数

                                                                                                                                            

            arr(X) = X

   Dim x As Integer

     Sub t1()

         ‘逐句运行

                                                           

End Sub

     Dim x As Integer, st As String

       wb.Sheets(“sheet1”).Range(“a1”) = “abcd”

          Loop Until x = 100

             MsgBox “A工作表存在”

                                                               图4 代码存放在“模块”中

       End Sub

   On Error Resume Next

        Sub s7()

      x = x + 1

A、用VBA在单元格中输入普通公式

      End Sub

E、借用工作表函数

     Sub t7()

      If Cells(x + 1, 1) <> Cells(x, 1) + 1 Then

 

     worksheet 也表示工作表,但不包括图表工作表、宏工作表等。

 

                               
                                                                       
                       

 D、本地窗口

           Range(“b1”) = “0”

         End Select

    c 模块

  20、工作表的操作

          Set sh = Sheets.Add

        Range(“d8”) =
Application.WorksheeFunction.CountIf(Range(“A1:A10”), “B”)

               wb.SaveAs ThisWorkbook.Path & “/1日.xls”

    Set wb = Workbooks.Open(“D:/B.xls”)

     注:在A2:A6单元格区域中,找到b项,共两个,将所对应的B列中的单元格值相加,即3+5=8。

立即窗口可以把运行过程中的值立即显示出来,主要用于程序的调试

     Sheets(n) 表示按排列顺序,第n个工作表

            Range(“b1”) = “负数或0”

           有效数为7位
表示-3.37E+38至3.37E+38之间的实数

                                                                                                                                                     

F.Do While……Loop语句

         Range(“b1”) = “负数或0”

           Application.DisplayAlerts = False

                                                                                                                             

       MsgBox “A文件不存在”

    End Sub

B、代码窗口

range(“a1”)=10

     Option Explicit

         Next

     D、 excel工作表的移动

    Do While x < 18

           sh.Name = “模板”

     Range(“c16”) = “=SUMIF(A2:A6,””b””,B2:B6)”
‘遇到单引号就把单引号加倍

8. VBA属性

                                                                                                                                           

      End Sub

      Next x

    End Sub

   3 全局级变量:
在所有的模块中都可以调用,值会保存到EXCEL关闭时才会被释放。

      End Sub

       End Sub

  C、VBA分支语句

      x = x + 1

     ‘ workbooks(2),按打开顺序,第二个打开的工作簿。

    x = 1

       If Cells(x, 1) Mod 2 = 0 Then GoSub 100

       Sub t3()

   Range(“b2”) = 0.01

         Dim x As Integer

         MsgBox “A工作表不存在”

     Sub t5()

      Set wb = ThisWorkbook

     Dim m As Integer

D、For Each语句(应用offset方法来制定单元格)

         Cells(X, 1) = X

    Sheet1.Move before:=Sheets(“Sheet3”)   ’将sheet1表移动到sheet3之前

    On Error GoTo 100

     Dim X As Integer

        Dim sr

         Sub t7()

          MsgBox “A文件打开了”

b、gosub..return ,跳过去,再跳回来

E.Do ……Loop Until语句

      Sub 判断3()

           Application.DisplayAlerts = True

        Sub s8() ‘判断工作表是否添加了保护密码

     End Sub

E、 excel文件保存和备份

  A.“开发工具”——“Visual Basic”——“视图”——“工程资源管理器”——“插入”——“模块”——在右侧输入代码:

    x = 1

     rg = rg.Offset(0, -1) * rg.Offset(0, -2)

          For X = 1 To 10

     Sub t1()

           rg = 0

   A、 判断A.Xls文件是否存在

单击向右的绿三角,即可以运行。

          sh.Range(“a1”) = 100

  Sub t3()

       Sub s5() ‘在本工作簿中

         表示日期和时间

        Sub s4()

          m = 7

         End Function

               Exit Do

    4、 放数组

  End Sub

    Sub 判断1() ‘单条件判断

     一般情况下,过程级变量在过程运行结束后就会自动从内存中释放,而只有一些从外部借用的对象变量才需要使用set
变量=nothing进行释放。

        Workbooks(2).Sheets(2).Range(“a1”) = 200

            Next x

Sub select区间判断()

         Sub e2()

   2 模块级变量:变量的值只在本模块中保持,工作簿关闭时随时释放   

      MsgBox “在第” & x & “行出错了”

       End Sub

D.循环语句。

        st = st & Cells(x, 1)

    d 代码运行和调试

    Loop Until x = 14

      Sub t2()

    Range(“b2”) = 0.03

     Sub 判断1() ‘单条件判断

        Sub s2()

        sr = Application.InputBox(“请输入数字”, “输入提示”)

       End Sub

      Dim I, J As Integer

     所谓变量,就是可变的量。就好象在内存中临时存放的一个小盒子,这个小盒子放的什么物体不固定。

       Dim st As String    ’st存放字符串

   ’注:offset就是偏移,针对d2而言,Offset(0, -1)指的就是向左移动1个单元格,即c2;而Offset(0, -2)指的就是向左移动2个单元格,即b2;第一个参数是垂直移动,正为向上,负为向下;第二个参数是水平移动,正为向右,负为向左。

        Sub t1()

       Sub t4()

 E.通过插入窗体做小型管理软件。

        100:

 Case 1001 To 3000

      Range(“A1”).Copy Range(“A2”)   ’将A1中的内容复制到A2

           Set sh = ActiveSheet

     C、 excel工作表隐藏和取消隐藏

            Set wb = ActiveWorkbook

     End Sub

         逻辑型又称布尔型,其数据只有True(真)和False(假)两个值

 

    Sub t4()

      Cells(x, 4) = Cells(x, 2) * Cells(x, 3)

                                                
                                                                      
               

       ‘如t1

      Workbooks(“A.xls”),名称为A的excel工作簿

        End Sub

   VBA方法是作用于VBA对象上的动作,表示用某个方法作用于VBA的对象上,可以用下面的格式:

C、用VBA在单元格中输入数组公式

        End Sub

图3 最终的界面多出了“开发工具”选项卡

         Case Else

      For x = 2 To 6

  图片 5

      Dim x As Integer

      Range(“C20”) = VBA.InStr(Range(“a20”), “E”)

B.运行宏

               End If

   Sub t5()

        If Len(sr) = 0 Or Len(sr) = 5 Then GoTo 100

            x = x + 1

   Sub w5()

                                                          图6  选中test并“运行”

   End Sub

 A、END语句

       Sub s6() ‘另存为新工作簿

      Select Case Range(“a1”).Value

               If x = 5 Then

         End Sub

               If Sheets(“Sheet4”).Range(“b” & I).Value =
Sheets(“黄门乡”).Range(“b” & J).Value Then   

 Select Case Range(“a2”).Value

      Sheets(1).Name = “工作表改名了”   ’给工作簿重命名为“工作表改名了”

    wb.Close False

  End Sub

        k = k + Cells(x, 1)

         ‘设置断点

10.在一个乡政府的文件中要求将Excel中一个表格的身份证号,配对并填充到另一个表中。宏代码如下:

              sh.Name = “1日”

        End If

   图片 6

                                                                                          

                     Sheets(“Sheet4”).Range(“e” & I).Value =
Sheets(“黄门乡”).Range(“d” & J).Value

          Windows(“A.xls”).Visible = False

      a、Exit Sub语句

    Next rg

         

  If Range(“a2”) <= 1000 Then

        Next X

   H、工作表删除

     Dim wb As Workbook

        If rg = “” Then

     For x = 1 To 10

                图12 offset函数分析图

       Cells(x, 3) = Cells(x, 2) * Cells(x, 1)

        If Windows(X).Caption = “A.XLS” Then

     workbooks(2),按打开顺序,第二个打开的工作簿。

   Sub t2()

     End Sub

            For x = 1 To 100

        End Sub

  图片 7

         在VB中字符串常量是用双引号“
”括起的一串字符,例 如”ABC”,”abcdefg”,”123″,”0″,”VB程序设计”等。

   End Sub

   Dim x As Integer

     ‘ActiveSheet
,当打开多个excel工作簿时,你正在操作的那个就是ActiveSheet

     Sheet1 表示第一个插入的工作表,Sheet2表示第二个插入的工作表….

    End Sub

   G、 保护工作表

   Sub W3()

   Sub d1()

   图片 8

    End Sub

   B、工作簿窗口

      Next x

     ThisWorkBook ‘代码所在的工作簿

   ’注:在a1到b7单元区域和d5到e9单元格区域中的遍历所有单元格,若为空,就赋值0。

     A、判断A工作表文件是否存在

 Case 0 To 1000

 C.编写自定义函数。

    End Sub

  B.IIF判断语句

C、变量的类型和声明

11.判断语句

     ActiveWorkbook
,当打开多个excel工作簿时,你正在操作的那个就是ActiveWorkbook(活动工作簿)

       c、Exit for语句

        Function ff()

      For x = 1 To 10

   ’注:Cell(行,列),即上文中的x指的是行。将第二列和第三列相乘赋值给第四列。

         Next J

   ’判断第1列中的数据不连续,就在其后的单元格输入一个“断点”。

          Range(“A2”).Interior.ColorIndex = 3  ’将A2单元格的背景颜色设置为红色

             If x = 5 Then

      Dim rg As Range

         Dim x As Integer

        End Sub

         Set rg = Range(“a1”) ’Set关键词就是给对象变量指定值

G、编写自定义函数

     图片 9

12.循环语句

     Workbooks (“工作簿名称”)

     ActiveWorkbook 正在操作的工作簿

Option Explicit

      Workbooks  工作簿集合,泛指excel文件或工作簿

      Function wn()

           Sheets(“sheet2”).Protect “123”

      End Select

  B. 单击绿右三角即可运行。或者关闭VBA编辑窗口,单击“宏”——选中“test”——“执行”。

   Sub t3()

         Sheets(2).Visible = True

         Case Is = 0

         For X = 1 To Sheets.Count

           Range(“b1”) = “负数”

‘对应工程窗口的对象和模板,显示其所具体的一些特征。

   End Sub

   End Sub

   Sub s2()

                 Exit Sub

      Case Else

       Next I

        Dim X As Integer

VBA在哪里存放的?怎么运行?

  

   ‘在本地窗口中可以显示运行中断时对象信息、变量值、数组信息等

        Sub t2()

         Sheets(“Sheet2”).Move before:=Sheets(“sheet1”)
‘sheet2移动到sheet1前面

End Sub

     If Len(Dir(“d:/A.xls”)) = 0 Then

             End If

                                                                                                                           

                                                           

     For x = 1 To 10

         Range(“d9”) = Evaluate(“=SUM(B2:B6*C2:C6)”)

  B.工作表对象

      sheets  工作表集合,泛指excel各种工作表

      图片 10

 宏通常既可以录制又可以手动编程,而VBA一般是通过编程完成。宏可以和VBA相结合使用。

      Sub ttt3()

         If Range(“a3”) < “G” Then

   End Sub

           End If

          Next X

            m = 1

            Next x

       Dim X As Integer ‘x就是一个整形变量

     Sheets(“工作表名称”)

    Range(“b2”) = 0.05

 C.在程序中应运语句。

    Sub s1()

                                                                                                                               

4.录制一个宏。

           Range(“b1”) = 100

      End Function

     End If

    Next x

    End Sub

    Sub W6()

           Else

     变量通过索引可以存储更多的值,在循环结构中的作用大。

    For x = 1 To 10

        图片 11

        End Sub

D.区间判断

18、Excel文件的操作

      excel工作表有两大类,一类是我们平常用的工作表(worksheet),另一类是图表、宏表等。这两类的统称是sheets

       If Range(“a1”).Value > 0 Then

    Dim x As Integer

         End Sub

    For x = 10000 To 2 Step -3

   A、什么是变量?

    c 代码强制转行的设置

      For I = 3 To 225

      Range(“d4”) = Range(“b4”) * Range(“c4”)   ’将b4单元格与c4单元格相乘并赋值给d4单元格

    Dim wb As Workbook

   Sub t5()

       Windows(“A.xls”),A工作簿的窗口,使用windows可以设置工作簿窗口的状态,如是否隐藏等。

         Cells(x, 2) = “断点”

           Dim wb As Workbook

                                                                              

                Exit For

              Cells(1, 1) = x

             MsgBox “工作簿保护了”

         Sheets(“Sheet1”).Move after:=Sheets(Sheets.Count)
‘sheet1移动到所有工作表的最后面

 宏(Macro),是一种批量处理。

         Range(“d16”) = Evaluate(“=SUMIF(A2:A6,””b””,B2:B6)”)

       For X = 1 To 10

              Sheets(“模板”).Delete

       Range(“d2”) = “=b2*c2”   ’将b2乘以c2赋值给d2

             Dim x As Integer

什么是VBA?它有什么作用?

A、工程窗口

        Workbooks(“A.xls”).Sheets(1).Range(“a1”) = 100

      wb.Save

   End Sub

      Range(“d6”) = Range(“b6”) * Range(“c6”)   ’将b6单元格与c6单元格相乘并赋值给d6单元格

   Sub t4()

        Sheets(“A”).Range(“a1”) = 100

   在Excel 2010中若没有“开发工具”项,通过“文件”——“选项”——“自定义功能区”——选中“开发工具”——“确定”(图1)。

                                                   图5 右绿三角运行  

             If x = 5 Then

  B、 判断A.Xls文件是否打开

   Exit Sub

      excel文件就是excel工作簿,excel文件打开需要excel程的支持

    

       For X = 1 To 10

   Sub t2()

5.编写一个宏。

    Do

     Sub W1()

    Sub W2()

         Sub e1()

           例如:长整型的书写:
   23454444554     

End Sub

    Range(“b2”) = 0.01

        Debug.Print “第” & x & “次运行结果:” & st

             Cells(1, 1) = x

      If x > 5 Then On Error GoTo 0

c、on error resume next ‘遇到错误,跳过继续执行下一句

      Dim wb As Workbook

          表示-32768至32767之间的整数
          例如:10   110   20

        st = st & “Excel精英培训”

       End Sub

      Range(“d2”) = Range(“b2”) * Range(“c2”)   ’将b2单元格与c2单元格相乘并赋值给d2单元格

 

  Sub w4()

             MsgBox “工作簿没有添加保护”

     Workbooks
代表工作簿集合,所有的工作簿,Workbooks(N),表示已打开的第N个工作簿

   2 为什么要声明变量

   End Sub

           MsgBox qq

  C.单元格对象

             Exit Sub

     End Sub

    End Sub

         Exit Do

         Range(“A2”).Font.ColorIndex =
3      ’将A2单元格的字体颜色设置为红色

        Sub t5()

        End Sub

    d 类模块

        Sub e3()

       Else

 

               wb.Sheets(1).Range(“b1”) = “测试”

      Sub t1()

 

     (4)双精度实型(Double):

   1 过程级变量:过程结束,变量值释放

 Case Is > 3000

  I、工作表的选取

         Cells(x, 3) = Cells(x, 2) * Cells(x, 1)

         End Sub

图2 ”自定义功能区”—“开发工具”——“确定”

                                                                                                                                            

     Sub 配对()

          Dim arr(1 To 10) As Integer, X As Integer  

     d、Exit do 语句

 

     B、 excel工作表的插入

     Next x

  B.“宏”——选中“输入100”——“执行”。

          Do

          MsgBox m

            MsgBox “A-G”

   

    Next x

           有效数为15位

                                                                                                                            

    For Each rg In Range(“d2:d18”)

     ’单元格的内部的填充色

     Range (“单元格地址”)

  ElseIf Range(“a2”) <= 3000 Then

       End Sub  

                                                                                                                                     

  B.For each 循环语句

 

          Dim sh As Worksheet

              End If

13. 学习变量

      On Error Resume Next

   A、excel工作表的分类

   Dim rg As Range

B、用VBA在单元格输入带引号的公式

图1 选中“文件”—“选项”

     End Sub

     Sub t1()

B、 Exit语句:退出指定的语句

    Sub ttt2()

     (5)字符型(String)

           If Sheets(X).Name = “A” Then

             ff = 100

      x = x + 1

  Sub ttt4()

   Sub t4()

C、excel文件新建和保存

      Case Is > 0

     (2)长整型(Long):

 

    (7)日期型(Date)

     End Sub

 E、变量的释放

     Range(“d” & x) = Range(“b” & x) * Range(“c” & x)

  Sub if区间判断()

    (6) 逻辑型(Boolean)

 B.提高运行速度。

  End Sub

       End Sub

3.什么是宏?宏和VBA有什么关系?

   ’注:Cell(行,列),即上文中的x指的是行。将第二列和第三列相乘赋值给第四列。

     End Sub

       Cells(x, 4) = “=b” & x & “*c” & x     ’将b列乘以c列赋值给d列

     Selection 正被选中或选取的单元格或单元格区域

     (1)整型(Integer):

     Sub t1()

      Next rg

          Exit Sub

 

  B.函数程序语句

           Next x

        End Sub

     ActiveSheet 表示活动工作表,光标所在工作表

     Sub t3()

   

  ElseIf Range(“a2”) > 3000 Then

       End Sub

        End Sub

       Sheets(“Sheet2”).Range(“a1”).Value =
“abcd”   ’给sheet2工作表的a1单元格填充字符串“abcd”

                                                                              

     End Sub

          表示-2,147,483,648至2,147,483,647之间的整数

6.VBA语句

        Range(“a3”) = IIf(Range(“a1”) <= 0, “负数或零”, “负数”)

      Dim x As Integer

              If x = 5 Then

      Range(“c9”).FormulaArray = “=SUM(B2:B6*C2:C6)”

              End If

   
                                                                                                                                       

    Sub ttt()

    注:“100:”就是一个Goto语句可以跳入的标志。“Len(sr)=0”表示输入框没有输入,“Len(sr)
= 5”表取消。其实质就是“false”是5个字符。

 D.实现自动化功能。

   

    End Sub

              Range(“b1”) = 100

D、变量的存活周期

16.VBA分支语句与End语句

              Range(“b1”) = 100

  End Sub

         用两个“#”符号把日期和时间的值括起来
      如:#08/20/2001#、#2001-08-20#

   Range(“b2”) = 0.05

       Next X

    Sub 判断4()

             End If

       Sub s9()

    a 显示工作簿工作表对象

D、利用单元格公式返回值

    Loop Until x = 18

          Sheets(2).Range(“a1”) = 200

 A.模块中

     Else

      Range(“d5”) = Range(“b5”) * Range(“c5”)   ’将b5单元格与c5单元格相乘并赋值给d5单元格

        Dim rg As Range      ’rg是单元格类型

G.Do ……Loop Until语句

            Sheets(“模板”).Copy

      Cells(x, 4) = Cells(x, 2) * Cells(x, 3)

        Sub t2()

    MsgBox wb.Sheets(“sheet1”).Range(“a1”).Value

         End Sub

   注:将10000行数据中每隔3行的b列和c列相乘赋值给d列。

      ’Range(“A1”).Copy Destination:= Range(“A2”)

        Dim x As Integer

       Sub s10()

    Do

    Sub 判断2() ‘多条件判断

’注:将b列和c列相乘的结果

    A、excel文件和工作簿概念

      Exit Sub

      dim public

      Next x

    Return    ‘跳到gosub 100 这一句

      1、放数字   2、放文本

     a、Goto语句,跳转到指定的地方

  A.工作簿对象

   A.if判断语句

                                                                                          

       Sub t3()

 A.实现Excel中没有实现的功能。

      End Sub

   对象.方法  参数名称:=参数值

   Dim x As Integer

     Next x

    100:

         End If

       Sub t4()

C、For Next语句

         Range(“b1”) = “正数”

      For X = 1 To Windows.Count

             For x = 1 To 100

  End If

      Dim x As Integer

        Windows(2).Visible = True

 

     (3)单精度实型(Single):

                                                                                                                                  

9.VBA方法

 C、立即窗口

15. VBE编辑器

     3、 放对象

      Kill “D:/ABC.XLS”

          Dim sh As Worksheet

     图片 12

       Dim X As Integer    ’X存放整数类型

               wb.Close True

      For x = 1 To 10

     cells 所有单元格

  C.select判断

      wb.SaveCopyAs “D:/ABC.xls”

     Set wb = Workbooks.Add

        End Sub

     Thisworkbook,VBA程序所在的工作簿,无论你打开多少个工作簿,无论当前是哪个工作簿是活动的,thisworkbook就是指它所在的工作簿。

   End Sub

            Range(“b1”) = “正数”

          rg = 100

    E、 excel工作表的复制

 

        Sub s3()

   A.单语句代码

           For J = 4 To 930

           Range(“b1”) = “正数”

  A.“开发工具”——“录制宏”——宏名为“输入100”——“录制”——在A1单元格中输入100——“停止”。

           End If

  Sub ttt5()

 e、on error goto 0 ‘取消错误跳转

       MsgBox “A文件存在”

  A.宏程序语句。

            Sheets(“sheet2”).Select

       Cells(x, 3) = Cells(x, 2) * Cells(x, 1)

     Cells(x, 1) = “偶数”

  End Sub

     For x = 1 To 10

d、on error goto  ‘出错时跳到指定的行数

 End Select

      ’数组arr(1),arr(2),arr(3)……arr(10)都是整形类型

           For x = 1 To 100

                Cells(1, 1) = x

   3 声明变量

    Dim x As Integer

     wb.SaveAs “D:/B.xls”

     End Sub

    End Sub

           If Sheets(“sheet2”).ProtectContents = True Then

       End Sub

                                                       
                                                                  
         

 

 

           Dim x As Integer

 F、 excel文件复制和删除

    e 对象列表框和过程列表框

       Sub s1()

   B、小盒子里可以放什么?

      For Each rg In Range(“a1:b7,d5:e9”)

   Range(“b2”) = 0.03

作用:强制退出所有正在运行的程序。

         End Sub

19、工作表的概念

      FileCopy “D:/ABC.XLS”, “E:/ABCd.XLS”

    End Sub

      End If

 

    VBA属性就是VBA对象所具有的特点,表示某个对象的属性如下:对象.属性=属性值

               Exit Function

         Case Is > 0

    100:

    b 窗体

     End Sub

    Sub ttt1()

      Next

    Sub d()

       ‘ public 变量

         Sub t6()

             sh.Range(“a1”) = “测试”

    b 代码缩进的设置

     Cells(行数,列数)    Range(“B3”)和Cells(3,2)表示相同的单元格

     ’竟然没写入End IF,提示错误“Next 缺少 For”

   1 变量的类型