vba如何一键把一个文件多个sheet的最后一行数值复制到一个新的sheet页？
发布网友
发布时间：2022-04-23 16:15
共1个回答
热心网友
时间：2023-10-09 05:37
Sub sj()
Dim sh As Worksheet, st As Worksheet, r&, rr&
Set sh = Worksheets.Add(, Sheets(Sheets.Count))
For Each st In Sheets
If st.Name <> sh.Name Then
r = r + 1
rr = st.UsedRange.Rows.Count
sh.Range(r & ":" & r) = st.Range(rr & ":" & rr).Value
End If
Next
End Sub
