Question

VBA Excel如何在一个事件中对两个sheet进行同样的插入操作？

现在 ActRow2 = 这一句显示type mismatch

Private Sub cbt_Submit_Click()
Dim Colm_Count As Integer
Dim ActRow As Long
Dim ActRow2 As Long
ActRow = Sheets(NewSheetName).Cells(Rows.Count, 1).End(xlUp).Row
Sheets(NewSheetName).Rows(ActRow + 1).RowHeight = 20
With Sheets(NewSheetName)
With .Cells(Rows.Count, 1).End(xlUp)
'.Pattern = xlSolid
.Offset(1, 0) = textbox_ProjectName
.Offset(1, 1) = textbox_WBS
.Offset(1, 2) = cbo_CustomerArea
.Offset(1, 3) = textbox_MachineType
.Offset(1, 4).NumberFormat = "mm/dd/yyyy"
.Offset(1, 4) = dptPJInfo
.Offset(1, 5) = cbo_ProjectLevel
.Offset(1, 6) = cbo_PJM
.Offset(1, 7) = cbo_ECS
.Offset(1, 8) = textbox_PJEEND
End With
End With
'ErrorHandle:
' MsgBox Err.Number & " : " & Err.Description
' Exit Sub
ActRow2 = Sheets(Sheet2).Cells(Rows.Count, 1).End(xlUp).RowWith Sheets(Sheet2)
With .Cells(Rows.Count, 1).End(xlUp)
'.Pattern = xlSolid
.Offset(1, 0) = textbox_ProjectName
.Offset(1, 1) = textbox_WBS
.Offset(1, 2) = cbo_CustomerArea
.Offset(1, 3) = textbox_MachineType
.Offset(1, 4).NumberFormat = "mm/dd/yyyy"
.Offset(1, 4) = dptPJInfo
.Offset(1, 5) = cbo_ProjectLevel
.Offset(1, 6) = cbo_PJM
.Offset(1, 7) = cbo_ECS
.Offset(1, 8) = textbox_PJEEND
End With
End With
'ErrorHandle:
' MsgBox Err.Number & " : " & Err.Description
' Exit Sub
End Sub

Answer 1

应该这样写
ActRow2 = Sheets(“Sheet2”).Cells(Rows.Count, 1).End(xlUp).Row
With Sheets(“Sheet2”)
引号不能少

追问

确实没有报错了，但是内容没有写道Sheet2里面阿？

追答

应该没错的了，你再检查检查。

Answer 2

只要两段写入代码是一致的就应该没问题，主要检查一下你的Sheet2表是否存在，或者表名是否是"Sheet2"