【015】选择筛选的最后一行(筛选、赋值、单元格内容写入)_#VBA

目录

• 1 筛选
• 2 赋值
• 3 单元格内容写入
• 4 选择最后一行
• 5 整体使用
• • 5.1 代码块
  • 5.2 展示区

1 筛选

根据需要筛选一定要求的数据

Item = 2   	'选择某一列进行数据筛选
Step = 2	'在某一列下，按某一要求筛选数据
ActiveSheet.Range("$A$1:$L$1").AutoFilter Field:=Item, Criteria1:=Step 

2 赋值

将单元格数据进行赋值给变量

T = Cells(T1, 8).Value

3 单元格内容写入

将变量写入单元格数据

Sheets("Sheet1").Cells(3, i).Value = T

4 选择最后一行

选择最后一行，并返回行标

'返回当前显示最后一行的行标
T1 = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell)
'返回所有数据最后一行的行标
T1 = ActiveSheet.UsedRange.Rows.Count

5 整体使用

5.1 代码块

Sub sd()Item = 1For i = 1 To 5Sheets("Sheet1").SelectActiveSheet.Range("$A$1:$L$1").AutoFilter Field:=Item, Criteria1:=iT1 = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).RowT2 = ActiveSheet.UsedRange.Rows.CountT = Cells(T1, 2).ValueSheets("Sheet2").Cells(1, i).Value = T1Sheets("Sheet2").Cells(3, i).Value = T2Sheets("Sheet2").Cells(5, i).Value = TNextEnd Sub

5.2 展示区

原数据样式

整理后数据样式

参考地址：
[1] https://docs.microsoft.com/zh-cn/office/client-developer/excel/excel-home?redirectedfrom=MSDN
该代码仅供学习，如商业转载请联系本人，非商业转载请注明出处

本文来自互联网用户投稿，文章观点仅代表作者本人，不代表本站立场，不承担相关法律责任。如若转载，请注明出处。 如若内容造成侵权/违法违规/事实不符，请点击【内容举报】进行投诉反馈！