input从vbaforms覆盖行

我有一个vba表单，它将我收集的数据input到我的工作表中。 这是devise（应该是），所以它会find最后一个空行，然后input新的信息。 它对前60行起作用，但是现在它不断覆盖第60行中的现有信息并且不会继续。 任何想法都会有所帮助，因为我看不到任何可以阻止它的东西。

Sub UserForm_Initialize() ComboBoxWellNameW1.List = Array("4-14-820", "5-56-820", "9-41-820", "10-30-820", "16-31-820", "16-12-820", "16-11-820", "10-42-820", "10-31-820", "10-32-820") ComboBoxWellStatusW1.List = Array("Pumping", "Shut-in", "Flowing", "Work-over") ComboBoxTagW1.List = Array("Yes", "No", "N/A") ComboBoxStrokesW1.List = Array("3", "3.5", "4", "4.5", "5", "5.5", "6", "6.5", "7", "7.5", "8", "8.5", "9") ComboBoxGauger.List = Array("Jim Burns", "Adam Miller") TextBoxDate.Value = Date ComboBoxTime.List = Array("0:00", "0:15", "0:30", "0:45", "1:00", "1:15", "1:30", "1:45", "2:00", "2:15", "2:30", "2:45", "3:00", "3:15", "3:30", "3:45", "4:00", "4:15", "4:30", "4:45", "5:00", "5:15", "5:30", "5:45", "6:00", "6:15", "6:30", "6:45", "7:00", "7:15", "7:30", "7:45", "8:00", "8:15", "8:30", "8:45", "9:00", "9:15", "9:30", "9:45", "10:00", "10:15", "10:30", "10:45", "11:00", "11:15", "11:30", "11:45", "12:00", "12:15", "12:30", "12:45", "13:00", "13:15", "13:30", "13:45", "14:00", "14:15", "14:30", "14:45", "15:00", "15:15", "15:30", "15:45", "16:00", "16:15", "16:30", "16:45", "17:00", "17:15", "17:30", "17:45", "18:00", "18:15", "18:30", "18:45", "19:00", "19:15", "19:30", "19:45", "20:00", "20:15", "20:30", "20:45", "21:00", "21:15", "21:30", "21:45", "22:00", "22:15", "22:30", "22:45", "23:00", "23:15", "23:30", "23:45") DailyGaugeSheet.Show End Sub Sub commandButtonSubmit_Click() With ThisWorkbook.Sheets("Results") .Range("C5000").Select Selection.End(xlUp).Select ActiveCell.Offset(0).Select ActiveCell.Value = TextBoxDate ActiveCell.Offset(0, 1).Value = ComboBoxTime ActiveCell.Offset(0, 2).Value = ComboBoxGauger ActiveCell.Offset(0, 3).Value = ComboBoxWellNameW1 ActiveCell.Offset(0, 4).Value = ComboBoxWellStatusW1 ActiveCell.Offset(0, 5).Value = TextBoxTK1FtW1 ActiveCell.Offset(0, 6).Value = TextBoxTK1InchW1 ActiveCell.Offset(0, 7).Value = TextBoxTK2FtW1 ActiveCell.Offset(0, 8).Value = TextBoxTK2InchW1 ActiveCell.Offset(0, 9).Value = TextBoxTK3FtW1 ActiveCell.Offset(0, 10).Value = TextBoxTK3InchW1 ActiveCell.Offset(0, 11).Value = TextBoxTK4FtW1 ActiveCell.Offset(0, 12).Value = TextBoxTK4InchW1 ActiveCell.Offset(0, 13).Value = TextBoxTK5FtW1 ActiveCell.Offset(0, 14).Value = TextBoxTK5InchW1 ActiveCell.Offset(0, 15).Value = TextBoxTK1WaterHauled ActiveCell.Offset(0, 16).Value = TextBoxTK2WaterHauled ActiveCell.Offset(0, 17).Value = TextBoxTK3WaterHauled ActiveCell.Offset(0, 18).Value = TextBoxTK4WaterHauled ActiveCell.Offset(0, 19).Value = TextBoxTK5WaterHauled ActiveCell.Offset(0, 20).Value = TextBoxTK1OilHauled ActiveCell.Offset(0, 21).Value = TextBoxTK2OilHauled ActiveCell.Offset(0, 22).Value = TextBoxTK3OilHauled ActiveCell.Offset(0, 23).Value = TextBoxTK4OilHauled ActiveCell.Offset(0, 24).Value = TextBoxTK5OilHauled ActiveCell.Offset(0, 30).Value = TextBoxTubingW1 ActiveCell.Offset(0, 31).Value = TextBoxCasingW1 ActiveCell.Offset(0, 32).Value = ComboBoxTagW1 ActiveCell.Offset(0, 33).Value = ComboBoxStrokesW1 ActiveCell.Offset(0, 34).Value = TextBoxChokeW1 ActiveCell.Offset(0, 37).Value = TextBoxTrTempW1 ActiveCell.Offset(0, 38).Value = TextBoxTrPressW1 ActiveCell.Offset(0, 39).Value = TextBoxStaticPr ActiveCell.Offset(0, 40).Value = TextBoxDiffPr ActiveCell.Offset(0, 41).Value = TextBoxYestGasVol ActiveCell.Offset(0, 42).Value = TextBoxCommentsW1 ActiveCell.Offset(0, 43).Value = TextBoxPumpIntake ActiveCell.Offset(0, 44).Value = TextBoxPumpTemp ActiveCell.Offset(0, 45).Value = TextBoxPumpHZ ActiveCell.Offset(0, 46).Value = TextBoxDownTime ActiveCell.Offset(0, 47).Value = TextBoxFluidLevel ComboBoxTime = "" ComboBoxWellNameW1 = "" ComboBoxWellStatusW1 = "" TextBoxTK1FtW1 = "" TextBoxTK1InchW1 = "" TextBoxTK2FtW1 = "" TextBoxTK2InchW1 = "" TextBoxTK3FtW1 = "" TextBoxTK3InchW1 = "" TextBoxTK4FtW1 = "" TextBoxTK4InchW1 = "" TextBoxTK5FtW1 = "" TextBoxTK5InchW1 = "" TextBoxTK1WaterHauled = "" TextBoxTK2WaterHauled = "" TextBoxTK3WaterHauled = "" TextBoxTK4WaterHauled = "" TextBoxTK5WaterHauled = "" TextBoxTK1OilHauled = "" TextBoxTK2OilHauled = "" TextBoxTK3OilHauled = "" TextBoxTK4OilHauled = "" TextBoxTK5OilHauled = "" TextBoxTubingW1 = "" TextBoxCasingW1 = "" ComboBoxTagW1 = "" ComboBoxStrokesW1 = "" TextBoxChokeW1 = "" TextBoxTrTempW1 = "" TextBoxTrPressW1 = "" TextBoxStaticPr = "" TextBoxDiffPr = "" TextBoxYestGasVol = "" TextBoxCommentsW1 = "" TextBoxPumpIntake = "" TextBoxPumpTemp = "" TextBoxPumpHZ = "" TextBoxDownTime = "" TextBoxFluidLevel = "" End With End Sub 

Answer 1

更换

  .Range("C5000").Select Selection.End(xlUp).Select ActiveCell.Offset(0).Select 

同

  Y = ActiveSheet.UsedRange.Rows.Count lastRow = ActiveCell.SpecialCells(xlLastCell).Row .Cells(lastRow, "C").Select 

Answer 2

尝试改变这一点：

 .Range("C5000").Select Selection.End(xlUp).Select ActiveCell.Offset(0).Select 

为了这个：

 .Range("C" & .Rows.Count).End(xlUp).Offset(1,0).Select 

Offset(1,0)对于获得下一个空行是绝对必要的。 否则，你只是一次又一次地瞄准你的最后一行。

另外，使用ActiveCell和Select退出。 他们真的很糟糕的方法。 检查这个post的一些想法： 我可以使这个macros更高效或更快？ 检查＃4。 它应该给你一个如何更好地解决这个问题的想法。

让我们知道这是否有帮助。