您好我在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
它是一个很好的开始执行我希望它执行的功能...但我想知道如何用vLookUp修改它以搜索下一个空行并开始在那里输入数据而不是必须手动定义一行,这可能导致操作员错误,因为这些行变得更加填充......
答案 0 :(得分:2)
您可以像这样获得第一个空行:
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
,并将其余代码保留原样。