首页
学习
活动
专区
工具
TVP
发布
精选内容/技术社群/优惠产品,尽在小程序
立即前往

如何在MS EXCEL VBA非活动工作表中引用UsedRange

在MS Excel VBA中,如果要在非活动工作表中引用UsedRange,可以使用以下代码:

代码语言:txt
复制
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet1") ' 替换为你想要引用的工作表名称

With ws
    Dim rng As Range
    Set rng = .UsedRange
    ' 在这里可以对引用到的UsedRange进行操作
End With

上述代码首先声明一个Worksheet对象ws,并将其设置为非活动工作表(可以根据需要替换为具体的工作表名称)。然后使用With语句将代码块限定在该工作表范围内,以便后续引用。接下来,声明一个Range对象rng,并将其设置为工作表的UsedRange。你可以在With语句块内对rng进行任何操作,例如读取数据、修改格式等。

需要注意的是,UsedRange是根据工作表中实际使用的单元格范围动态计算的,因此在引用之前,确保工作表中已经包含了所需的数据。

腾讯云相关产品和产品介绍链接地址:

页面内容是否对你有帮助?
有帮助
没帮助

相关·内容

Excel VBA解读(143): 在自定义函数中使用整列引用时,如何更有效率?

学习Excel技术,关注微信公众号: excelperfect Excel用户经常发现在公式中使用整列的引用很方便,这样可避免每次添加新数据时都必须调整公式。...在VBA用户自定义函数处理此问题的标准方法是获取整列引用和已使用单元格区域的交叉区域,以便用户自定义函数只需处理实际使用的整列的一部分。...) GetUsedRows = oRng.Rows.Count End Function 代码,变量theRng的Parent属性返回包含其指向的单元格的工作,因此,theRng.Parent.UsedRange...获取工作已使用的单元格区域。...Excel 2007之前的Excel版本的等效方法是使用Application对象的SheetCalculate事件清空该特定工作的缓存。

2.9K20

Excel VBA编程

当前活动工作簿的所有的图表工作 selection 当前活动工作簿中所有选中的对象 sheets 当前活动工作簿的所有sheet对象,包括普通工作,图表工作Excel4.0宏工作和5.0...200' 引用整行单元格 在VBA,rows表示工作或某个区域中所有行组成的集合,要引用工作汇总指定的行,可以使用行号或者索引号两种方式 activesheet.rows("3:3").select...'选中活动工作的第三行' activesheet.rows("3:5").select '选中活动工作的3-5行' activesheet.rows(3) '选中活动工作的第三行' 引用整列单元格...在VBA,columns表示工作或某个区域中所有行组成的集合,要引用工作汇总指定的行,可以使用行号或者索引号两种方式 activesheet.columns("F:G").select '选中活动工作的第...在重新计算工作之后发生 SheetChange 当更改了任意工作的单元格之后发生 sheetDeactivate 当任意工作转为活动状态时发生 sheetFollowHyperLink 当单击工作簿的任意超链接时发生

45.4K22
  • 简单的Excel VBA编程问题解答——完美Excel第183周小结

    23.在VBA程序中使用哪个Excel对象引用工作表单元格区域? Range对象。 24.假设单元格区域引用单个工作表单元格,你如何知道该单元格是否为空?...25.Worksheet对象的UsedRange属性引用什么? 包含工作中所有已使用单元格的最小单元格区域。 26.如何在单元格添加批注?...获取引用该单元格的Range对象,然后调用AddComment方法。 27.一个工作可以有多少个Selection对象? 只有一个。...完美Excel微信公众号本周内容 在完美Excel公众号,本周推出的内容清单如下: 一些基本的Excel VBA编程问题,答案来了 Excel小技巧66:快速求和 Excel实战技巧92:快速获取指定目录下所有文件清单...Excel公式技巧64:为重复值构造包含唯一值的辅助列 Excel小技巧67:列出工作中所有定义的名称 完美Excel社群本周内容 本周完美Excel社群内容更新不是很多,仍然是《Excel编程周末速成班

    6.6K20

    Worksheet工作对象属性

    (所以在使用索引号引用工作时,如果改变排列顺序就可能导致指定的工作表错误,这点需要注意。) 代码变量从1到工作对象的数量4。即索引号从1至4。对应的工作名也是从左至右。...三、usedrange属性 工作usedrange属性表示工作已经使用的单元格,返回单元格对象。...属性值通常有三个值可供选择: 属性值-1为显示隐藏的工作。(vba代码也可以使用1和true) 属性值0为普通隐藏,可以从格式菜单取消隐藏。...(vba代码也可以用false或者xlsheethidden) 属性值2代深度隐藏,不能从格式菜单取消隐藏,必须通过vba代码或属性窗格更改。...工作的codename属性是工作对象名称,上节已经有详细的介绍,在新增工作时,excel会默认工作name和对象名称codename相同。

    2.7K30

    Worksheet工作对象基础

    二、工作对象集合 在vba代码,单个对象与对象集合都常用到,工作对象集合sheets和worksheets集合用于批量处理的情况。...(点击vba工程的sheet1,下侧会显示工作sheet1的属性窗格,(名称)就是codename,就可以手工修改(建议没有需求不要更改)。...四、Activesheet Activesheet工作是指当前活动工作。 在使用excel时,通常都是在工作簿的一个工作worksheet中进行编辑。...工作的add方法,即添加新的工作。(VBA对象方法概述) worksheets集合的count属性,即统计工作集合工作对象的数量。...工作usedrange属性,表示工作中使用过的单元格。(单元格常用属性篇四) 由于相关内容难度不大,这里不再重复介绍,可通过链接查看原文。 ---- 本节主要介绍了工作对象的引用方法。

    2.5K10

    Python-Excel-win32com-10-最大行最大列

    的操作 使用win32com模块 获取工作最大行、最大列 Part 1:示例说明 ?...在对Excel数据进行遍历时,如何获取当前已有内容最大行最大列? 下图已知工作输入的内容,可知 最大行为:15 最大列为:9 工作 ? Part 2:代码 ?...Excel.Application") # 若想引用常数的话使用此法调用Excel xl_app.Visible = True # 是否显示Excel文件 wb = xl_app.Workbooks.Open...(excel_address) sht = wb.Worksheets(1) range_used = sht.UsedRange max_row = range_used.Rows.Count max_col...获取已使用单元格区域最大列 通过以上示例发现其实就是某单元格区域的一个属性,做以下衍生:工作的最大行,最大列 range_used = sht.Cells max_row = range_used.Rows.Count

    2K50

    VBA实用小程序49: 列出所有打开工作簿VBA模块和过程

    学习Excel技术,关注微信公众号: excelperfect 有时,我们可能需要知道工作簿中有哪些模块和相应的过程。...Jon Peltier改编了VBA过程,可以列出当前所有已经打开的工作簿中所含有的VBA模块和过程清单。在输出工作,前两行为模块所在工作簿名称和工程名称。...并且,代码会绕过受保护的VBA工程,同时如果工作簿没有代码,也会在输出工作说明。...下面是完整的代码: Sub GetVBAProcedures() '声明访问Excel工作簿的变量 Dim app As Excel.Application Dim wb As...在VBE,单击菜单“设置——引用”,在下图1所示的对话框中找到“Microsoft Visual Basic forApplications Extensibility 5.3”并选中前面的复选框。

    4K20

    Excel催化剂开源第30波-在Excel上尽情地使用LINQ

    对于笔者这样的数据分析工作者来说,对数据库有较深的掌握,当然少不了对SQL查询的深度使用,如果在编程的世界,可以复用这样的能力,真的是一件多么令人高兴的事情。...所以在VBA的世界,对某对象进行排序、筛选、去重等操作,在VSTO的世界,使用LINQ来操作,将变得十分简单。...具体地址为:https://github.com/paulyoder/LinqToExcel 在Excel上使用LINQ访问集合对象 简单演示下用过的一些小代码 获取当前数据区域中的隐藏行的行号集合。...= null) { //防止全选,和usedRange做一下交集处理 Excel.Range srcDataRange...例如转换单元格就是Range.Cells.Cast(),转换工作,就是Workbooks.WorkSheets.Cast()。

    1.8K20

    何在 C# 以编程的方式将 CSV 转为 Excel XLSX 文件

    在本文中,小编将为大家介绍如何在Java以编程的方式将【比特币-美元】市场数据CSV文件转化为XLSX 文件。...() 的代码 并将其导入到新 工作簿 BTCChartController.Get [HttpGet(Name = "GetBTC-USDChartWorkbook")] //public IEnumerable...using块之后)以处理 工作簿的 CSV : BTCChartController.Get(续) public static void processWorkbook(Workbook workbook...然后,它创建一个 名为 BTC_Monthly的 ,其中包含 CSV 数据并自动调整 的列。...然后,代码在整个表格范围内添加一个StockVOHLC 类型的工作 (成交量-开盘-高-低-收盘)新图表,设置图表标题,将系列添加到图表,将类别轴单位更改为“月”,更新类别轴刻度标签方向和数字格式,

    18810

    VBA实战技巧05: 动态调整数组以存储所需数据

    学习Excel技术,关注微信公众号: excelperfect 数组是一种常用的数据结构,可用来存储一组相同类型的数据,你可以将一个数组变量视为一个迷你的电子表格,通过引用数组的位置来存储或者获取数据...如果你想详细学习数组的相关知识,可参阅相关文章: Excel VBA解读|进阶篇(152):数据结构——谈谈数组 Excel VBA解读|进阶篇(153):数据结构——基本的数组操作 Excel VBA...解读|进阶篇(154):数据结构——数组常用操作示例代码 Excel VBA解读|进阶篇(155):数据结构——数组相关的函数 VBA进阶|数组基础01:用最浅显的介绍来帮你认识数组 VBA进阶|数组基础...如果调整数组大小的同时,想要保留之前存储在数组的数据,则需要使用Preserve关键字,告诉VBA在增加数组存储容量时,保留原来存储在数组的数据。...这个方法在的数据变化时,代码仍正常运行,也就是说,使数组也具有了自动扩展功能。

    3.6K20

    超全整理|Python 操作 Excel 库 xlwings 常用操作详解!

    在之前的文章我们曾详细的讲解了如何使用openpyxl 操作Excel,其实在Python还有其他可以直接操作 Excel 文件的库, xlwings、xlrd、xlwt 等等,本文就将讲解另一个优秀的库...,支持 .xls和 .xlsx 格式;可以调用 Excel 文件 VBA 写好的程序;和 matplotlib 以及 pandas 的兼容性强 openpyxl:不需要 Excel 软件,仅支持 .xlsx...可以看到,和 xlwings 直接对接的是 apps,也就是 Excel 应用程序,然后才是 工作簿 books 和工作 sheets,这点和 openpyxl 有较大区别,也正是因为此,xlwings...,它使 xlwings 的操作更显灵活: # 活动应用程序 app = xw.apps.active # 活动工作簿 wb = xw.books.active # 在活动app wb = app.books.active...# 在特定app # 活动工作 sheet = xw.sheets.active # 在活动工作簿 sheet = wb.sheets.active # 在特定工作簿 # 活动工作的Range

    3.6K20

    超全整理|Python 操作 Excel 库 xlwings 常用操作详解!

    在之前的文章我们曾详细的讲解了如何使用openpyxl 操作Excel,其实在Python还有其他可以直接操作 Excel 文件的库, xlwings、xlrd、xlwt 等等,本文就将讲解另一个优秀的库...软件,支持 .xls和 .xlsx 格式;可以调用 Excel 文件 VBA 写好的程序;和 matplotlib 以及 pandas 的兼容性强 openpyxl:不需要 Excel 软件,仅支持...books 和工作 sheets,这点和 openpyxl 有较大区别,也正是因为此,xlwings 需要依然安装有 Excel 应用程序的环境 代码详解 一、打开Excel程序 使用app打开 import...,它使 xlwings 的操作更显灵活: # 活动应用程序 app = xw.apps.active # 活动工作簿 wb = xw.books.active # 在活动app wb = app.books.active...# 在特定app # 活动工作 sheet = xw.sheets.active # 在活动工作簿 sheet = wb.sheets.active # 在特定工作簿 # 活动工作的Range

    18.5K82

    matinal:ExcelVBA代码一键合并汇总多个工作簿

    有时候,你需要将几十个工作簿的内容,快速汇总至合并至一个工作簿,如果手动一个复制粘贴,那心里有苦说不出。。。...今天将大家用VBA一键合并,只需要几秒种,为了测试这段代码,我们新建了4个工作簿在文件夹,数据都是模拟的,做试验 一键合并代码操作如下所示: 我们看原始表格数据,其中,第1个工作簿有点特殊,这个工作簿...,有两个工作,第1个工作的内容是: 第2个工作的内容是: 第2,3,4个工作簿中都是仅有1个工作,如下所示: 通过代码,我们一键可以合并,得到结果,这个汇总的结果有两个特点 1、最后一列,还会显示这些数据的来源是哪个工作簿...如下所示: 在Excel菜单栏,点击开发工具,打开VBA,输入如下代码: 其中代码如下所示: Sub 合并目录所有工作簿全部工作() Dim MP, MN, AW, Wbn, wn Dim Wb...).Copy .Cells(1, 1) d = Wb.Sheets(i).UsedRange.Columns.Count c = Wb.Sheets(i).UsedRange.Rows.Count

    88050

    合并拆分 Excel?Python、VBA轻松自动化

    最终成品 合并 EXCEL VBA 实现合并 不套路,下面直接放出 VBA 代码(来源于网络,经过了我修改): Sub 合并当前目录下所有工作簿的全部工作() Dim MyPath, MyName,...如下目录中放着 3 个待合并的 EXCEL ,每个数据不同; ? 新建一个 EXCEL 文件后打开它,用于存放合并后的数据; ? 通过快捷键 Alt + F11 打开 VBA 界面; ?...xlsx") merge_excel("D:/某文件夹") 拆分 EXCEL 分久必合,合久必分(这句话不是这么引用的吧)。...那么如果是要分配工作,比如把一个大按行数分成多份小该如何实现呢?我们还是先来看看 VBA 版本。...如下图所示,将一个的 15 个任务拆分到了 3 个新的 ? ?

    2.3K20

    EXCEL VBA语句集300

    ‘保存工作簿 (11) ThisWorkbook.close ‘关闭当前工作簿 (12) ActiveWorkbook.Sheets.Count ‘获取活动工作工作数 (13) ActiveWorkbook.name...=xlMaximized ‘将当前工作簿最大化  工作 (18) ActiveSheet.UsedRange.Rows.Count ‘当前工作已使用的行数 (19) Rows.Count...=Not ActiveWindow.DisplayHeadings ‘切换工作的行列边框显示 (28) ActiveSheet.UsedRange.FormatConditions.Delete...‘选定当前工作的所有单元格 (34) Range(“A1”).ClearContents ‘清除活动工作上单元格A1的内容 Selection.ClearContents ‘清除选定区域内容...‘关闭 Excel Set ExcelSheet = Nothing ‘释放该对象变量 (94) ‘声明并创建一个Excel对象引用 Dim xlApp As Excel.Application

    1.8K40

    Excel VBA之Find

    Excel VBA之Find expression.Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase,...可为字符串或任意 Microsoft Excel 数据类型。 After Variant 类型,可选。表示搜索过程将从其之后开始进行的单元格。此单元格对应于从用户界面搜索时的活动单元格位置。...使用,因为我们的工作中常常在最后会写一此“备注”,我们在取数据的时候,备注与后面的东西是没用的,所以我们要取到备注以上的东西,以"金额合计"或“合计”为最后一行号 ====例子:代码==== Sub...dd_test() ‘’’’’查找***工作中含有” 金额合计”的单元格所在的行号 Set ng = Sheets("在编绩效").Cells.Find("金额合计", , , ,1) MsgBox...).Row MsgBox "编外工资-金额合计:" & Sheets("编外工资").Cells.Find("金额合计", , , ,1).Row ‘’’’’’’’’’’’’’’’’’’’’’’’查找工作中最大的行号可最大的列号

    2.1K20
    领券