求大神高手们指点：提取指定活动区域数据的代码

adon.liu · 发表于 2019-12-18 13:25

本帖最后由 adon.liu 于 2019-12-19 09:05 编辑

求大神高手们指点：提取指定活动区域数据的代码

不同的sheet之间提取数据，数据区域的行数会变动，求一段VBA代码。拜谢！

wtg321 · 发表于 2019-12-18 13:34

Startrow = Columns("b").Find("序号").Row
endrow = Columns("b").Find("合计").Row

NadrsSaber · 发表于 2019-12-18 13:39

Private Sub CommandButton1_Click()
Sheet1.Cells.Clear
Dim rng As Range
Dim hjRow&
hjRow = Sheet2.Cells.Find("合计").Row
Sheet2.Range("B3:J" & hjRow).Copy Sheet1.[B3]
End Sub

复制代码

孙旭白 · 发表于 2019-12-18 13:49

Private Sub CommandButton1_Click()
rownub = Application.WorksheetFunction.Match("合计", Sheets("基础数据").Columns("b"))
Sheets("基础数据").Range("b3:j" & rownub).Copy Sheets("统计用表").Range("b3")
End Sub

adon.liu · 发表于 2019-12-18 15:01

NadrsSaber 发表于 2019-12-18 13:39

追问一个问题，如果要的结果是提取数据，不带公式和格式，
Sheet2.Range("B3:J" & hjRow).Copy Sheet1.[B3] 这行代码需要改动什么？请指教，多谢！

NadrsSaber · 发表于 2019-12-18 15:15

adon.liu 发表于 2019-12-18 15:01
追问一个问题，如果要的结果是提取数据，不带公式和格式，
Sheet2.Range("B3:J" & hjRow).Copy Sheet1. ...

Private Sub CommandButton1_Click()
Sheet1.Cells.Clear
Dim rng As Range
Dim hjRow&
hjRow = Sheet2.Cells.Find("合计").Row
Sheet2.Range("B3:J" & hjRow).Copy
Sheet1.Activate
Sheet1.Range("B3").PasteSpecial Paste:=xlPasteValues
End Sub

复制代码

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

[已解决] 求大神高手们指点：提取指定活动区域数据的代码

评分

评分

评分