Excel

每个sheet中的一个矩形区域的左上角到右下角的单元格引用。这个矩形区域是恰好能容纳所有已使用单元格的最小矩形。比如，Sheets(1)的B3，E2，D4有数据，那么，这个Sheet的UsedRange的Address属性的值就是$B$2:$E$4

手机怎么使用截屏功能？

可以使用代码：“usedrange.rows.count”。

“usedrange.rows.count”是自动读取范围内最后一行的代码，其中的“rows”代表“行”。同理，若是要读取最后一列，可以使用“usedrange.columns.count”，其中“columns”代表“列”。

宏是一些储存了一系列命令的程序。当你创建一个宏命令的时候，只是将一系列的键盘输入结合成一个简单的命令，你以后可以“回演”这个命令。因为宏命令可以减少复杂任务的步骤，使用宏命令可以显著得减少你花在创建，设置格式，修改和打印工作表的时间。可以通过 Excel 内置的录制工具来创建宏命令，也可以在代码编辑器里面直接写代码。

EXCEL数据合并代码

如果您使用的是华为手机，以华为P40手机为例：

一、使用隔空手势截屏

1、进入设置 &gt辅助功能 &gt快捷启动及手势 &gt隔空手势，确保隔空截屏开关已开启。

2、将手掌朝向屏幕，放在在距离屏幕半臂的位置稍作停顿，待屏幕上方出现“手势图标”后，握拳截屏。

二、使用组合键截屏

同时按下电源键和音量下键截取完整屏幕。

三、使用快捷开关截屏

从屏幕顶部状态栏下滑出通知面板，继续向下滑出整个菜单，点击“截图图标”截取完整屏幕。

四、指关节截屏

1、进入设置 &gt辅助功能 &gt快捷启动及手势 &gt截屏，确保指关节截屏开关已开启。

2、用单指指关节稍微用力并连续快速双击屏幕，截取完整屏幕。

五、分享、编辑截屏或继续滚动截长图

截屏完成后， 左下角会出现缩略图。您可以：

1、向下滑动缩略图，可以继续滚动截长屏。

2、向上滑动缩略图，选择一种分享方式，快速将截图分享给好友。

3、点击缩略图，可以编辑、删除截屏。

截屏图片默认保存在图库中。

六、使用指关节手势滚动截长图

1、单指指关节敲击屏幕并保持指关节不离开屏幕，稍微用力画“S”，屏幕将自动向下滚动截屏。

2、滚动过程中，点击滚动区域可停止截屏。

Sub Macro1()

    Dim MyPath$, MyName$, sh As Worksheet, sht As Worksheet

    Application.ScreenUpdating = False

    Set sh = ActiveSheet

    MyPath = ThisWorkbook.Path &amp”\”

    MyName = Dir(MyPath &amp”*.xls”)

    [a1].CurrentRegion.Offset(2).Clear

    Do While MyName &lt&gt””

        If MyName &lt&gtThisWorkbook.Name Then

            With GetObject(MyPath &ampMyName)

                For Each sht In .Sheets

                If sht.Name &lt&gt”总表” Then

                    If sht.[a65536].End(3).Row &gt3 Then

                        lr = sh.[a65536].End(3).Row + 1

                        r = sht.[a65536].End(3).Row – 3

                        sh.Cells(lr, 1).Resize(r) = Split(MyName, ”.”)(0)

                        sh.Cells(lr, 2).Resize(r) = sht.Name

                        ’sht.[a1].CurrentRegion.Offset(3, 7).Copy sh.Cells(lr, 3)

                        sht.Range(”A4:G” &amp(r + 3)).Copy sh.Cells(lr, 3)

                    End If

                    End If

                Next

                .Close False

            End With

        End If

        MyName = Dir

    Loop

    Application.ScreenUpdating = True

    MsgBox ”ok”

End Sub

Sub 工作薄间工作表合并()

Dim FileOpen

Dim X As Integer

Application.ScreenUpdating = False

FileOpen = Application.GetOpenFilename(FileFilter:=”Microsoft Excel文件(.xlsx),.xlsx”, MultiSelect:=True, Title:=”合并工作薄”)

X = 1

While X &lt= UBound(FileOpen)

Workbooks.Open Filename:=FileOpen(X)

Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)

X = X + 1

Wend

ExitHandler:

Application.ScreenUpdating = True

Exit Sub

errhadler:

MsgBox Err.Description

End Sub

Sub 指定表名提取成一工作薄() ’字段必须要在第一列

  On Error Resume Next

    Dim Filename$, fn$, dq$, crr()

    Set cnn = CreateObject(”ADODB.Connection”)

    Dim arr, n&amp, i&amp, j&amp, s$

    Dim MyPath$, myFile$

    Dim rs As Object

    Set d = CreateObject(”scripting.dictionary”)

    cnn.Open ”provider=microsoft.ace.oledb.12.0extended properties=’excel 12.0’data source=” &ampThisWorkbook.FullName

  [a1:p65536].ClearContents

    MyPath = ThisWorkbook.Path &amp”\”

    myFile = Dir(MyPath &amp”*.xls*”)

    n = CreateObject(”Scripting.FileSystemObject”).GetFolder(MyPath).Files.Count – 1    ’计算文件个数，减1不包括自身

    ReDim arr(1 To 1000, 1 To n)  ’定义arr,最大工作表数1000

    Do While myFile &lt&gt””

        If myFile &lt&gtThisWorkbook.Name Then  ’不等于本工作簿执行

            j = j + 1

            i = 1

            arr(1, j) = Left(myFile, InStrRev(myFile, ”.”) – 1)    ’去后辍

            Set cnn = CreateObject(”ADODB.Connection”)

            cnn.Open ”Provider=Microsoft.ACE.OLEDB.12.0Extended Properties=Excel 12.0Data Source=” &ampMyPath &ampmyFile

            Set rs = cnn.OpenSchema(20)  ’Set rs = cnn.OpenSchema(adSchemaTables)，创建数据表记录集

            Do Until rs.EOF

                If rs.Fields(”TABLE_TYPE”) = ”TABLE” Then

                    i = i + 1

                    s = Replace(rs(”TABLE_NAME”).Value, ”’”, ””)              ’去除”’”(数字工作表）

                    If Right(s, 1) = ”$” Then arr(i, j) = Left(s, Len(s) – 1)    ’去除$号

                End If

                rs.MoveNext

            Loop

        End If

        myFile = Dir

    Loop

    rs.Close

    cnn.Close

    Set rs = Nothing

    Set cnn = Nothing

    Range(”A1”).Resize(i, j) = arr    ’输出

    Rows(”1:1”).Delete

    bmc = ActiveSheet.Name

    brr = Worksheets(bmc).UsedRange

For Each cf In brr

  If cf &lt&gt”” Then

    d(cf) = ””

    End If

Next

Worksheets(bmc).UsedRange.Delete

Application.ScreenUpdating = True

[b3].Resize(d.Count, 1) = Application.Transpose(d.keys)

  [b2] = ”所有的工作表名如下 请选择！”

    Set cnn = CreateObject(”ADODB.Connection”)

    cnn.Open ”provider=microsoft.ace.oledb.12.0extended properties=’excel 12.0’data source=” &ampThisWorkbook.FullName

Flag:    Set zzdm = Application.InputBox(prompt:=”请在出现的表名称中选择 可以点选 或者全选：”, Type:=8)

    Application.ScreenUpdating = False

    For Each Rng In zzdm  ’计算出所选单元格的个数

        If Rng &lt&gt”” Then

            a = a + 1

            ReDim Preserve crr(1 To a)

            crr(a) = Rng

        End If

    Next

    ll = UBound(crr)

  Columns(2).Delete

  For Each c In crr

  If c = ”” Then GoTo 333

    zdm = c

    Filename = Dir(ThisWorkbook.Path &amp”\*.xls*”)

    Do While Filename &lt&gt””

        If Filename &lt&gtThisWorkbook.Name Then

            fn = ThisWorkbook.Path &amp”\” &ampFilename

            Sql = ”select * from [” &ampfn &amp”].” &amp”[” &ampzdm &amp”$” &amp”]”

            r = [a65535].End(3).Row + 1

            Cells(r, 1).CopyFromRecordset cnn.Execute(Sql)

            r2 = [a65535].End(3).Row

            yy = ActiveSheet.UsedRange.Column + ActiveSheet.UsedRange.Columns.Count – 1

        If r2 &gt1 Then

        If jj = 0 Then

          Set rs = cnn.Execute(Sql)

          For i = 0 To yy – 1 ’逐个字段

          Cells(1, i + 1) = rs.Fields(i).Name ’取字段名

          jj = jj + 1

        Next i

    End If

    End If

End If

        Filename = Dir

    Loop

    ActiveSheet.Name = zdm

    ll1 = ll1 + 1

    If ll1 &ltll Then

    ThisWorkbook.Sheets.Add After:=Worksheets(zdm)

    End If

    jj = 0

Next c

333:

    cnn.Close: Set cnn = Nothing

    Application.ScreenUpdating = True

    MsgBox ”提取完毕！”

End Sub

Sub mergeonexls() ’合并多工作簿中指定工作表

On Error Resume Next

Dim x As Variant, x1 As Variant, w As Workbook, wsh As Worksheet

Dim t As Workbook, ts As Worksheet, l As Integer, h As Long

Application.ScreenUpdating = False

Application.DisplayAlerts = False

x = Application.GetOpenFilename(FileFilter:=”Excel文件 (*.xls*.xlsx),*.xls*.xlsx,所有文件(*.*),*.*”, _

      Title:=”Excel选择”, MultiSelect:=True)

Set t = ThisWorkbook

Set ts = t.Sheets(1) ’指定合并到的工作表，这里是第一张工作表

l = ts.UsedRange.SpecialCells(xlCellTypeLastCell).Column

For Each x1 In x

If x1 &lt&gtFalse Then

Set w = Workbooks.Open(x1)

Set wsh = w.Sheets(1) ’指定所需合并工作表，这里是第一张工作表

h = ts.UsedRange.SpecialCells(xlCellTypeLastCell).Row

If l = 1 And h = 1 And ts.Cells(1, 1) = ”” Then

wsh.UsedRange.Copy ts.Cells(1, 1)

Else

wsh.UsedRange.Copy ts.Cells(h + 1, 1)

End If

w.Close

End If

Next

Application.ScreenUpdating = True

Application.DisplayAlerts = True

End Sub

Sub 合并当前工作簿下的所有工作表()

Application.ScreenUpdating = False

For j = 1 To Sheets.Count

  If Sheets(j).Name &lt&gtActiveSheet.Name Then

      X = Range(”A65536”).End(xlUp).Row + 1

      Sheets(j).UsedRange.Copy Cells(X, 1)

  End If

Next

Range(”B1”).Select

Application.ScreenUpdating = True

MsgBox ”当前工作簿下的全部工作表已经合并完毕！”, vbInformation, ”提示”

End Sub

以上就是关于Excel 请问下usedrange是什么意思全部的内容，如果了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！

更多相关资讯