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" & 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