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

如何使用宏找到包含Excel工作表中数据的最后一行?

要在包含Excel工作表中数据的最后一行中使用宏,请按照以下步骤操作:

  1. 打开Excel工作簿。
  2. 按下Alt + F11键,打开Visual Basic for Applications (VBA)编辑器。
  3. 单击插入>模块,在VBA编辑器中插入一个新模块。
  4. 在新模块中,粘贴以下代码:
代码语言:vba
复制
Function LastRowInSheet(ws As Worksheet, columnToCheck As Integer)
    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, columnToCheck).End(xlUp).Row
    LastRowInSheet = lastRow
End Function
  1. 按下Ctrl + S键,保存宏。
  2. 返回Excel工作表,按下Alt + F8键,打开“宏”对话框。
  3. 选择LastRowInSheet宏并单击“运行”按钮。
  4. 在“LastRowInSheet”对话框中,选择要检查的工作表和要检查的列。
  5. 单击“确定”按钮,LastRowInSheet宏将返回所选列中数据的最后一行。

这样,您就可以使用宏找到包含Excel工作表中数据的最后一行了。

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

相关·内容

Excel技术:如何在一个工作表中筛选并获取另一工作表中的数据

标签:Power Query,Filter函数 问题:需要整理一个有数千条数据的列表,Excel可以很方便地搜索并显示需要的条目,然而,想把经过提炼的结果列表移到一个新的电子表格中,不知道有什么好方法?...为简化起见,我们使用少量的数据来进行演示,示例数据如下图1所示。 图1 示例数据位于名为“表1”的表中,我们想获取“产地”列为“宜昌”的数据。...方法1:使用Power Query 在新工作簿中,单击功能区“数据”选项卡中的“获取数据——来自文件——从工作簿”命令,找到“表1”所在的工作簿,单击“导入”,在弹出的导航器中选择工作簿文件中的“表1”...图3 方法2:使用FILTER函数 新建一个工作表,在合适的位置输入公式: =FILTER(表1,表1[产地]="宜昌") 结果如下图4所示。...图4 可以看到,虽然FILTER函数很方便地返回了要筛选的数据,但没有标题行。下面插入标题行,在最上方插入一行,输入公式: =表1[#标题] 结果如下图5所示。

18.2K40

如何插入或 Visio 中粘贴的 Excel 工作表

在 浏览 对话框中,找到您要插入单击 Excel 电子表格,单击 打开 Excel 电子表格。 单击 确定 。...单击 对象类型 列表中的 Microsoft Office Excel 工作表 ,单击 创建新 ,然后单击 确定 。 双击嵌入的 Excel 工作表,然后添加所需的数据。...在 Visio 绘图中显示一个较大的 Excel 工作表 loadTOCNode(2, 'summary'); 嵌入一张大 Excel 工作表包含很多列和行时, 可能无法查看所有列和绘图中嵌入工作表的行...请注意,如果您双击嵌入的 Excel 工作表,水平并在 Excel 工作表中显示的垂直滚动条。 您可以使用滚动条查看嵌入工作表中的所有列和行。...要这样做,请按下列步骤操作: 若要将 Excel 工作表,为图片的内容请按照下列步骤操作: 启动 Excel,然后打开所需的工作表。 按 Ctrl+End 移动到最后一个单元格在工作表上。

10.3K71
  • 快速汇总多个工作簿工作表中的数据(Excel工具推荐)

    有时候我们会遇到这种问题: 很多数据散落在很多工作表或者工作簿中,由于某项工作我们需要将这些数据做个汇总。...最笨的办法是挨个打开这些工作簿,手动将数据源串联起来,然后做数据透视。可是 1.有时候数据源过大,超出单个Excel文件承载范围,你无法串联。...然后有一天我在ExcelHome论坛发现了版主写的一个神器,可以自动生成SQL语句,实现跨工作簿/工作表进行数据汇总透视。(点击阅读原文可以找到工具下载链接)下面介绍下该工具的使用方式。...2.右侧列出了涉及工作表中的所有字段,你可以只选你需要的字段进行显示。...这个工具的另外一个好处是,数据源字段格式不一定要一样,比方这个工作表中有销售数量,销售额字段,那个工作表中还有“折扣“等字段,对你的结果不会产生影响,只是取你需要的字段即可。

    10.9K10

    Excel应用实践18:按照指定工作表中的数据顺序对另一工作表中的数据排序

    学习Excel技术,关注微信公众号: excelperfect 我从数据库中导入数据到工作表,本来数据库中的数据顺序是排好了的,然而导入工作表中后数据顺序变乱了。...如果在工作表中使用复制粘贴来重新恢复固定的顺序,将会花费大量的时间,能否使用VBA快速完成排序,详情如下。 下图1中“固定顺序”工作表为数据本来应该的顺序: ?...图1 图2中“整理前”工作表为导入数据后的顺序: ? 图2 可以看出,“整理前”工作表中的列顺序被打乱了,我们需要根据“固定顺序”工作表中列的顺序将“整理前”工作表恢复排序。...Worksheets.Add Before:=wksNoOrder ActiveSheet.Name = "整理后" Set wksNew =Worksheets("整理后") '获取数据区域所在的最后一列...For i = 1 To lngLastFixed SearchHeader =wksYesOrder.Cells(1, i) '在"整理前"工作表中查找

    3K20

    Excel公式技巧94:在不同的工作表中查找数据

    很多时候,我们都需要从工作簿中的各工作表中提取数据信息。如果你在给工作表命名时遵循一定的规则,那么可以将VLOOKUP函数与INDIRECT函数结合使用,以从不同的工作表中提取数据。...假如有一张包含各种客户的销售数据表,并且每个月都会收到一张新的工作表。这里,给工作表选择命名规则时要保持一致。...在汇总表上,我们希望从每个月份工作表中查找给客户XYZ的销售额。假设你在单元格区域B3:D3中输入有日期,包括2020年1月、2020年2月、2020年3月,在单元格A4中输入有客户名称。...每个月销售表的结构是在列A中是客户名称,在列B中是销售额。...当你有多个统一结构的数据源工作表,并需要从中提取数据时,本文介绍的技巧尤其有用。 注:本文整理自vlookupweek.wordpress.com,供有兴趣的朋友参考。 undefined

    13.1K10

    Excel实战技巧55: 在包含重复值的列表中查找指定数据最后出现的数据

    文章详情:excelperfect 本文的题目比较拗口,用一个示例来说明,如下图1所示,是一个记录员工值班日期的表,在安排每天的值班时,需要查看员工最近一次值班的日期,以免值班时间隔得太近。...得到一个由行号和0组成的数组,MAX函数获取这个数组的最大值,也就是与单元格D2中的值相同的数据在A2:A10中的最后一个位置,减去1是因为查找的是B2:B10中的值,是从第2行开始的,得到要查找的值在...组成的数组,由于这个数组中找不到2,LOOKUP函数在数组中一直查找,直至最后一个比2小的最大值,也就是数组中的最后一个1,返回B2:B10中对应的值,也就是要查找的数据在列表中最后的值。....Cells(i, ColNum) Exit Function End If Next i End With End Function 然后,在工作表中像...Excel内置函数一样,使用公式: =LookupLastItem($D$2,$A$2:$B$10,2) 结果如下图4所示。

    10.9K20

    excel中的数据如何导入到数据库对应的表中

    Excel中的数据导入到数据库对应的表中,若是挨个编写SQL会非常繁琐,下面介绍如何一次性导入成千上万,乃至数十万条数据> Step1: 首先我们需要将excel...中的数据按照对应的表的字段进行编辑格式,如下图方框圈起来的地方所示 Step2 点击上图中的文件–>另存为–>格式选择"文本文件(制表符分隔)(*.txt)",并写上名字 Step3: 进入到...Step5 来到"到Oracle的数据"界面,"所有者"中选择对应的用户名,"表"中选择对应的表。...选好后,在"字段"中会显示出你导入的数据和选择的表的字段对应关系,确认对应是否正确,若有误或是没有显示对应的字段,则鼠标选中有误后,在右侧重新选择对应关系。...excel中的"筛选"将带有空格的数据删掉; (2)若是使用wps等软件将pdf中的数据转成excel的数据,一定要注意可能会将带有’1.'

    15010

    Excel应用实践16:搜索工作表指定列范围中的数据并将其复制到另一个工作表中

    学习Excel技术,关注微信公众号: excelperfect 这里的应用场景如下: “在工作表Sheet1中存储着数据,现在想要在该工作表的第O列至第T列中搜索指定的数据,如果发现,则将该数据所在行复制到工作表...用户在一个对话框中输入要搜索的数据值,然后自动将满足前面条件的所有行复制到工作表Sheet2中。” 首先,使用用户窗体设计输入对话框,如下图1所示。 ?...Sheet1 Set wks = Worksheets("Sheet1") With wks '工作表中的最后一个数据行 lngRow = .Range(...'查找的数据文本值 '由用户在文本框中输入 FindWhat = "*" &Me.txtSearch.Text & "*" '调用FindAll函数查找数据值...Sheets("Sheet2").Cells.Clear '获取数据单元格所在的行并复制到工作表Sheet2 For Each rngFoundCell

    6.1K20

    Python操控Excel:使用Python在主文件中添加其他工作簿中的数据

    图2 可以看出: 1.主文件包含两个工作表,都含有数据。 2.每个工作表都有其格式。 3.想要在每个工作表的最后一行下面的空行开始添加数据。如图2所示,在“湖北”工作表中,是在第5行开始添加新数据。...使用Python很容易获取所有Excel工作表,如下图3所示。注意,它返回一个Sheets对象,是Excel工作表的集合,可以使用索引来访问每个单独的工作表。...要获取工作表名称,只需调用.name属性。 图3 接下来,要解决如何将新数据放置在想要的位置。 这里,要将新数据放置在紧邻工作表最后一行的下一行,例如上图2中的第5行。...那么,我们在Excel中是如何找到最后一个数据行的呢?可以先选择单元格A1,然后按下Ctrl+向下箭头键,则会移至最后一行(对于图2所示的工作表来说是第4行)。...下面的代码可以获取最后一行,如下图4所示。 图4 打开并读取新数据文件 打开新数据文件,从中获取所有非空的行和列中的数据。使用.expand()方法扩展单元格区域选择。

    7.9K20

    Excel公式技巧17: 使用VLOOKUP函数在多个工作表中查找相匹配的值(2)

    我们给出了基于在多个工作表给定列中匹配单个条件来返回值的解决方案。本文使用与之相同的示例,但是将匹配多个条件,并提供两个解决方案:一个是使用辅助列,另一个不使用辅助列。 下面是3个示例工作表: ?...图3:工作表Sheet3 示例要求从这3个工作表中从左至右查找,返回Colour列中为“Red”且“Year”列为“2012”对应的Amount列中的值,如下图4所示的第7行和第11行。 ?...图4:主工作表Master 解决方案1:使用辅助列 可以适当修改上篇文章中给出的公式,使其可以处理这里的情形。首先在每个工作表数据区域的左侧插入一个辅助列,该列中的数据为连接要查找的两个列中数据。...16:使用VLOOKUP函数在多个工作表中查找相匹配的值(1)》。...先看看名称Arry2: =ROW(INDIRECT("1:10"))-1 由于将在三个工作表中执行查找的范围是从第1行到第10行,因此公式中使用了1:10。

    14.1K10

    Excel公式技巧16: 使用VLOOKUP函数在多个工作表中查找相匹配的值(1)

    在某个工作表单元格区域中查找值时,我们通常都会使用VLOOKUP函数。但是,如果在多个工作表中查找值并返回第一个相匹配的值时,可以使用VLOOKUP函数吗?本文将讲解这个技术。...最简单的解决方案是在每个相关的工作表中使用辅助列,即首先将相关的单元格值连接并放置在辅助列中。然而,有时候我们可能不能在工作表中使用辅助列,特别是要求在被查找的表左侧插入列时。...因此,本文会提供一种不使用辅助列的解决方案。 下面是3个示例工作表: ? 图1:工作表Sheet1 ? 图2:工作表Sheet2 ?...图3:工作表Sheet3 示例要求从这3个工作表中从左至右查找,返回Colour列中为“Red”对应的Amount列中的值,如下图4所示。 ?...B:B"}),$A3) INDIRECT函数指令Excel将这个文本字符串数组中的元素转换为单元格引用,然后传递给COUNTIF函数,同时单元格A3中的值作为其条件参数,这样上述公式转换成: {0,1,3

    25.5K21

    如何使用免费控件将Word表格中的数据导入到Excel中

    我通常使用MS Excel来存储和处理大量数据,但有时候经常会碰到一个问题—我需要的数据存储在word表格中,而不是在Excel中,这样处理起来非常麻烦,尤其是在数据比较庞大的时候, 这时我迫切地需要将...word表格中的数据导入到Excel中。...相信大家也碰到过同样的问题,下面我就给大家分享一下在C#中如何使用免费控件来实现这一功能。这里,我使用了两个免费API, DocX和Spire.Xls。 有需要的朋友可以下载使用。...以下是详细步骤: 首先我使用DocX API 来获取word表格中的数据,然后将数据导入System.Data.DataTable对象中。...worksheet; //将dataTable中的数据插入到worksheet中,1代表第一行和第一列 sheet.InsertDataTable(dt, true, 1, 1); 步骤3: 保存到一个

    4.4K10

    VBA实战技巧32:安装Excel加载宏

    Excel是如何管理加载宏列表的 在后台,Excel使用注册表和一个特殊文件夹来管理存在哪些加载项以及已安装了哪些加载项。...所需的值只是加载项的路径及其名称,如下图3所示。 图3 选择了哪些加载宏 在注册表的另一个位置,Excel会记录选择了哪些加载项(在加载项对话框中检查)。...图4 每个键都包含要打开的加载项的名称(有时还包含一些命令行参数)。如果加载项不在加载项文件夹中,则包含完整路径。 注意,这些注册表项在关闭Excel后更新。...如何使用VBA来安装Excel加载宏 编写一些简单的代码来启用加载项,弹出的消息框如下图5所示。...最后一行关闭加载项打开的所有工作簿。为什么?因为当没有活动工作簿时你无法打开加载项对话框,显然这也会阻止Excel通过VBA将新加载项添加到列表中。

    5.3K20

    Excel应用实践08:从主表中将满足条件的数据分别复制到其他多个工作表中

    如下图1所示的工作表,在主工作表MASTER中存放着从数据库下载的全部数据。...现在,要根据列E中的数据将前12列的数据分别复制到其他工作表中,其中,列E中数据开头两位数字是61的单元格所在行前12列数据复制到工作表61中,开头数字是62的单元格所在行前12列数据复制到工作表62中...,同样,开头数字是63的复制到工作表63中,开头数字是64或65的复制到工作表64_65中,开头数字是68的复制到工作表68中。..., 64, "已完成" End Sub 运行代码后,工作表61中的数据如下图2所示。 ? 图2 代码并不难,很实用!在代码中,我已经给出了一些注释,有助于对代码的理解。...个人觉得,这段代码的优点在于: 将数据存储在数组中,并从数组中取出相应的数据。 将数组数据直接输入到工作表单元格,提高了代码的简洁性和效率。 将代码适当修改,可以方便地实现类似的需求。

    5.1K30

    文科生也能学会的Excel VBA 宏编程入门

    准备工作 Excel默认是没有打开宏功能和VBA编程功能的,因此需要打开一下。...Loop是Visual Basic中的循环语句之一,当逻辑条件为真时进入循环,当逻辑条件为假时退出循环。本程序中这个循环是为了一行行遍历Sheet1这张表,直到最后一个学生。...因此我们需要判断变量i什么时候到最后一行。...共用的宏就保存在这里,通过将这个文件发给别人覆盖对应的文件就可以把共用的宏给别人用了。如果是文件自带的宏,只需要把Excel文件发给对方就可以,文件已经自包含了。...仅仅是将代码复制过来是不够的,因为这个宏是共用的,代码中Sheet1等变量的指代不明,不知道是哪个Excel文件中的Sheet1,因此我们做些小的修改。

    5.7K20

    Excel VBA 自动填充空白并合并相同值的解决方案

    Excel VBA: 自动填充空白并合并相同值的解决方案问题背景在Excel中经常会遇到这样的数据处理需求:一列数据中存在多个空白单元格,需要用其上方最近的非空值填充,然后将相同的连续值合并成一个单元格...代码说明代码主要分为以下几个部分:初始化设置声明必要的变量获取工作表最后一行设置处理范围填充空白单元格遍历所有单元格如果遇到空白单元格,使用上方最近的非空值填充合并相同值遍历填充后的单元格记录开始单元格和当前值当遇到不同值时...使用方法添加代码到Excel按 Alt + F11 打开VBA编辑器在左侧项目浏览器中双击要添加宏的工作表将代码复制到代码窗口中运行宏方法一:通过VBA菜单按 Alt + F8 打开宏对话框选择 "FillAndMergeCells...注意事项数据备份使用前建议备份原始数据可以使用 Ctrl + Z 撤销操作使用限制默认处理A列数据如需处理其他列,需修改代码中的范围设置性能优化代码中使用了 ScreenUpdating = False...它不仅节省了手动操作的时间,还确保了处理的准确性。对于经常需要处理类似数据的用户来说,这是一个很有价值的工具。 最后,愿大家都可以解决工作中和生活中遇到的难题,剑锋所指,所向披靡~

    9420
    领券