Excel中的宏编码

时间:2016-03-04 04:44:29

标签: excel vba input vlookup

您好我在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修改它以搜索下一个空行并开始在那里输入数据而不是必须手动定义一行,这可能导致操作员错误,因为这些行变得更加填充......

1 个答案:

答案 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,并将其余代码保留原样。