VBA窗体的导入功能 Private Sub CommandButton1_Click() hh = Range("C56636").End(xlUp).Row '提取m列的末行号 If hh = 2 Then Range("B" & hh + 1) = "'001" If hh > 2 Then Range("B" & hh).AutoFill Destination:=Range("b" & hh & ":b" & hh + 1), Type:=xlFillDefault Range("C" & hh + 1) = TextBox1.Text Range("D" & hh + 1) = TextBox2.Text Range("E" & hh + 1) = TextBox3.Text Range("F& quot; & hh + 1) = TextBox4.Text Range("G" & hh + 1) = "=SUM(RC[-3]:RC[-1])" Range("H" & hh + 1) = Now() Range("I" & hh + 1) = TextBox5.Text 'MsgBox hh End Sub quot; & hh + 1) = TextBox4.Text Range("G" & hh + 1) = "=SUM(RC[-3]:RC[-1])" Range("H" & hh + 1) = Now() Range("I" & hh + 1) = TextBox5.Text 'MsgBox hh End Sub