sql As String Dim lastRow As Long ' 初始化目标工作表 Set ws = ThisWorkbook.Sheets("Sheet2") ws.Cells.Clear ws.Range("A1:D1").Value = Array("姓名", "身份证号", "所得项目", "已缴税额") ' 设置源文件路
在Excel VBA中,可以使用以下几种方法选择最后8行: 方法一:使用UsedRange属性和Rows属性 代码语言:txt 复制 Sub SelectLast8Rows() Dim LastRow As Long With ActiveSheet LastRow = .UsedRange.Rows.Count .Range("A" & LastRow - 7 & ":A" & LastRow).Select End With End Sub ...
LastUsedRow =.UsedRange.Rows.Count + .UsedRange.Row -1 EndWith End Function 使用SpecialCells方法 也可以用SpecialCells方法实现查找最后一行,其常量xlCellTypeLastCell代表在”已使用区域”中的最后一个单元格,与UsedRange属性稍有不同的是,当您在最后一行中输入数据后,又将其删除,则此数据所在的单元格也包含在已...
如果是非空单元格去掉.offset(1,0)就可以了，列也是类似的 Range("a1").End(xlToRight).Offset(0, 1).Select Range("aa1").End(xlToLeft).Offset(0, 1).Select 这是求有内容的最后一行或列值的语句：lastrow = UsedRange.SpecialCells(xlCellTypeLastCell).Rowlastcolumn = UsedRange.SpecialCells(...
Set Dic = CreateObject("Scripting.Dictionary") '获取工作表的数据区域，这里假设数据区域从A1开始，向右和向下延伸 With ActiveSheet lastRow = .UsedRange.Rows.Count lastCol = .UsedRange.Columns.Count Set dataRange = .Range("A1").Resize(lastRow, lastCol) '检查选定的单元格是否在数...
Sheets("Sheet1") lastRow = ws.UsedRange.Rows.Count arrData = ws.Range("A1:C" & lastRow).Value For i = 2 To lastRow arrData(i, 3) = Cells(i, 1).Interior.ColorIndex arrData(i, 2) = "" Next t = 2 For i = 2 To lastRow - 1 If arrData(i,...
Excel 如何通过VBA找出最后一行数据所在的列 一般有两个方法，一是使用ActiveSheet.UsedRange，这个表示所有已经使用的区域，一般可以赋值给数组完成所有数据的读取，也可以使用ActiveSheet.UsedRange.Rows.Count和ActiveSheet.UsedRange.Columns.Count获得区域的行列数量。 另外，可以使用End获得某行（或者某列）...
col_count = UsedRange.Columns.count '统计工作表已使用的列 Cells(row_count ,col_count ).Select 或脚本 lastCol = Range("a1").End(xlToRight).Column lastRow = Cells(65536, lastCol).End(xlUp).Row Range("a1", sht_temp.Cells(lastRow, lastCol)).Select ...
那就直接range = [a1:b9]呀您好，这样：Function LastColumn() As LongDim ix As Longix = ActiveSheet.UsedRange.Column - 1 + ActiveSheet.UsedRange.Columns.CountLastColumn = ixEnd FunctionFunction LastRow() As LongDim ix As Longix = ActiveSheet.UsedRange.Row - 1 + ActiveSheet....
看来用VBA也是很有必要的，我们就来试试看吧：Sub Transfer() Dim ws As Worksheet Dim lastRow As Integer Dim lastCol As Integer Dim arr() Set ws = ThisWorkbook.Sheets("原表") ws.Activate With ws .Activate lastRow = .UsedRange.Rows.Count lastCol = .UsedRange....