1、首先打开数据，在数据工作表上，第一行是日期，下面是数据，要求可以自动获取每一行最后一个数值的日期，如图。
2、首先在工作表上，找到下方的工作表标签，这里是sheet5，在工作表标签上右键，而后在弹出的选项里面，找到查看代码选项。
3、点击查看代码，而后进入VBA编辑窗口，在这里可以输入常用的命令，用来对前台的工作表进行控制。
4、在VBA编辑窗口输入代码，值得说明的是没有用sub，因为sub开始的代码，要用按钮控制，这种事自动运行的。
5、输入代码后，点击关闭，关闭VBA的编辑窗口，而后返回到工作表界面，发现日期一列没有反应，这里是因为没有进行任何操作或是刷新。
6、在工作表窗口任意一个地方双击一下，就相当于刷新工作表，而后可以看到，最后一次出现的数据，全部加载完成。
另外，可以使用End获得某行（或者某列）最后一个数据，例如需要获得A列最后一个数据所有在行可以用：
ActivceSheet.Cells(ActivceSheet.Rows.Count,1).End(XlUp).Row本回答被网友采纳
excelVBA如何取到有内容的最后一列和最后一行
在ExcelVBA中，快速定位到数据表的最后一列和最后一行的操作相当直观。首先，打开你的数据表，找到任意一个单元格。紧接着，同时按下Ctrl键和向下箭头（↓），这会瞬间定位到最后一行。然后，再使用Ctrl键和向上箭头（↑），你会回到表格的顶部，即首行。接着，按下Ctrl键和向右箭头（→），你将移动...
Excel 如何通过VBA找出最后一行数据所在的列
1、首先打开数据，在数据工作表上，第一行是日期，下面是数据，要求可以自动获取每一行最后一个数值的日期，如图。2、首先在工作表上，找到下方的工作表标签，这里是sheet5，在工作表标签上右键，而后在弹出的选项里面，找到查看代码选项。3、点击查看代码，而后进入VBA编辑窗口，在这里可以输入常用的命令...
在Excel中取得某列最后一行的VBA代码怎么写(各列行数不同)?
Excel 如何通过VBA找出最后一行数据所在的列 一般有两个方法，一是使用ActiveSheet.UsedRange，这个表示所有已经使用的区域，一般可以赋值给数组完成所有数据的读取，也可以使用ActiveSheet.UsedRange.Rows.Count和ActiveSheet.UsedRange.Columns.Count获得区域的行列数量。 另外，可以使用End获得某行（或者某列）...
excel定位最后一行的多种方法使用技巧快捷键VBA代码来定位到最后...
按下快捷键：ctrl +↓，或者Ctrl+end，以及双击选取单元格之下框线（对不连续区域不适用）。另外，在最后一行双击又可以定位到第一行。双击单元格的中间可以编辑单元格，双击单元格右下角可以进行填充。第二，使用VBA代码完成 下面这段代码能定位选择最后一行：Sub 定位最后一行()Range("a65536").End...
excel如何通过vba找出最后一行数据所在的列
一般有两个方法，一是使用ActiveSheet.UsedRange，这个表示所有已经使用的区域，一般可以赋值给数组完成所有数据的读取，也可以使用ActiveSheet.UsedRange.Rows.Count和ActiveSheet.UsedRange.Columns.Count获得区域的行列数量。另外，可以使用End获得某行（或者某列）最后一个数据，例如需要获得A列最后一个数据所有...
EXCEL VBA如何取指定列的最后一行行数
1、打开数据表。2、选中一个单元格，同时按键盘上的Ctrl+↓ 3、选中的单元格迅速就到了最后一行，同时按键盘上的Ctrl+↑。4、选中一个单元格回到了首行，同时按键盘上的Ctrl+→。5、选中一个单元格迅速到了最后一列，同时按键盘上的Ctrl+←。6、又可以迅速回到首列。7、还可以将鼠标移动到单元格...
在excel里如何用vba定位同行最后一个着色单元格(指定颜色)所在的列?
打开你的Excel文件，按“Alt+F11”打开VBA编辑窗口，然后在左侧对应的Sheet上双击，右侧空白处粘贴下面的代码。关闭VBA窗口。然后按“Alt+F8”打开宏窗口，选择刚插入的宏，点击“执行”。这段代码返回每行最后一个红色单元格的列号（数字）；代码中Msgbox ... 这一部分可以换成你需要的处理。Sub ys(...
查找excel 每行最后一个数值所在的单元格位置?
在P2单元格输入以下公式，然后向下填充公式，得到最后数据所在的列数 =LOOKUP(1,0\/(B2:O2<>""),COLUMN(B:O))详见附图
如何用VBA找到excel表格中的数据最后一行进行合计计算?
用cells(rows.count,1).end(xlup).row可以返回最后一个非空单元格的行数 sub z合计数()dim i as longi = cells(rows.count,1).end(xlup).row+1cells(i,1) = "合计数："cells(i,2) = worksheetfunction.sum(range("b1:b" & i-1))end sub ...
Excel 最后一行或最后一列表格的代码如何表示
VBA：range("A:A").rows.count 最大的列：=Columns(1:1)VBA：range("1:1").Columns.count A列中最后一个有内容的单元格所在的行：=MAX((A:A<>"")*ROW(A:A))数组公式（同时按Ctrl+Shift+enter）VBA: range("A1:A" & range("A:A").rows.count).End(xlup).Row 1行中最后一个...
