把两个文件合并,一个叫 内容 一个叫 基本信息
Option Explicit
Public a As Long
Sub 按钮1_Click()
Sheets("内容").Cells(1, 2).Formula = Sheets("基本信息").Cells(a + 2, 1).Formula
Sheets("内容").Cells(2, 2).Formula = Sheets("基本信息").Cells(a + 2, 2).Formula
Sheets("内容").Cells(3, 2).Formula = Sheets("基本信息").Cells(a + 2, 3).Formula
a = a + 1
End Sub
‘QQ23590449