选择区域后如何获得已选区域的第一和最后一行的行号，请老师给予指导，谢谢！

448911031 · 发表于 2019-3-26 20:14

本帖最后由 448911031 于 2019-3-26 22:08 编辑

有一个数据表，和一个打印模板表，希望选定一个区域（例如B3：K6，或B7：K10）后，能够将该区域的数据填到打印模板表中，并启动打印预览。
请老师指点如何获得最后一行的行号，选中区域前后都有数据，例如用鼠标选中RANGE("B3:K6")后如何获得K6的行号，选中区域是随机的，谢谢！
Sub dayin()
Dim n%, m%
n = Selection.Range("A1").Row
m = Selection.Range("A1").End(xlDown).Row
Sheets(2).Range("B" & n).Copy Sheets(1).Range("B3")
Sheets(2).Range("C" & n).Copy Sheets(1).Range("D3")
Sheets(2).Range("D" & n).Copy Sheets(1).Range("F3")
Sheets(2).Range("E" & n).Copy Sheets(1).Range("F4")
Sheets(2).Range("F" & n & ":" & "K" & m).Copy Sheets(1).Range("B7")
Worksheets("模板").PrintPreview
End Sub

448911031 · 发表于 2019-3-26 22:03

Sub dayin()
Dim n%, m%
n = Selection.Range("A1").Row
m = Selection.Range("A1").End(xlDown).Row
Sheets(2).Range("B" & n).Copy Sheets(1).Range("B3")
Sheets(2).Range("C" & n).Copy Sheets(1).Range("D3")
Sheets(2).Range("D" & n).Copy Sheets(1).Range("F3")
Sheets(2).Range("E" & n).Copy Sheets(1).Range("F4")
Sheets(2).Range("F" & n & ":" & "K" & m).Copy Sheets(1).Range("B7")
Worksheets("模板").PrintPreview
End Sub

lijunyong · 发表于 2021-12-31 21:36

好像很难的

		自动登录	找回密码
密码			免费注册

[求助] 选择区域后如何获得已选区域的第一和最后一行的行号，请老师给予指导，谢谢！

最新热点 /1