小弟初来，请各路高手指点赐教

初学，请各路高手指点赐教，

Private Sub CommandButton1_Click()
Dim r1 As Integer, r2 As Integer
r1 = Sheet2.Range("B65536").End(xlUp).Row + 1

Sheet2.Range("B" & r1).Value = Sheet1.Range("C2").Value
Sheet2.Range("J" & r1).Value = Sheet1.Range("C3").Value
Sheet2.Range("E" & r1).Value = Sheet1.Range("C4").Value
Sheet2.Range("F" & r1).Value = Sheet1.Range("C5").Value
Sheet2.Range("C" & r1).Value = Sheet1.Range("E2").Value
Sheet2.Range("D" & r1).Value = Sheet1.Range("E3").Value
Sheet2.Range("H" & r1).Value = Sheet1.Range("F4").Value
Sheet2.Range("L" & r1).Value = Sheet1.Range("F5").Value
Sheet2.Range("I" & r1).Value = Sheet1.Range("G2").Value
Sheet2.Range("K" & r1).Value = Sheet1.Range("G3").Value
Sheet2.Range("G" & r1).Value = Sheet1.Range("H2").Value
Sheet2.Range("M" & r1).Value = Sheet1.Range("H5").Value

'
MsgBox "保存完毕"

End Sub
这代码不能重复粘贴，怎样编一列不重复，其它列可重复



发不了图片和附件，请包含

[此贴子已经被作者于2022-5-8 22:05编辑过]