同时打开的Excel单元格内容调用-按钮换行

Sub 按钮1_Click()

Dim wb As Workbook
Set wb = Workbooks("Excel.xlsx")
[W1] = wb.Sheets(6).Range("A" & wb.Sheets(6).Range("M1"))
wb.Sheets(6).Range("M1") = wb.Sheets(6).Range("M1").Value + 1

End Sub

'Excel.xlsx 同时打开的表格

'Sheets(6) 为Excel.xlsx内的第6个工作表

'M1 为Sheets(6)内单元格地址,存储行号

'W1 为当前表格内需要显示内容的单元格地址