Excel中的macros编码

您好我发现这个代码在StackOverflow，我想知道如何修改它（见下面的代码剪切…）

Sub TestMacro() Dim dblRow As Double, dtDate As Date, strProject As String Dim strFalut As String, strProb As String, strSol As String dblRow = InputBox("Input on What Row?") dtDate = InputBox("Date", , Date) strProject = InputBox("Project #") strFalut = InputBox("Fault") strProb = InputBox("Problem") strSol = InputBox("Solution") Range("A" & dblRow).Value = dtDate Range("B" & dblRow).Value = strProject Range("C" & dblRow).Value = strFalut Range("D" & dblRow).Value = strProb Range("E" & dblRow).Value = strSol End Sub 

它是一个很好的开始执行我希望它执行的function…但我想知道如何可以修改它与vLookUpsearch下一个空行，并开始input数据，而不必手动定义一个行，这可能会导致操作员错误，因为这些行变得更多填充…

Answer 1

你可以像这样得到第一个空行：

 Range("A" & Range("A" & Rows.count).end(xlup).row + 1).value = dtDate 

显然要更改您正在更新的列的A的两个实例。

或者，更新dblRow = InputBox("Input on What Row?")到这个dblRow = range("A" & rows.count).end(xlup).row并dblRow = range("A" & rows.count).end(xlup).row的代码dblRow = range("A" & rows.count).end(xlup).row 。