自动增行录入

richiewong

只需要在加一个变量储存最大行即可。
先声明一个变量
Dim i_max As Long

然后sheet1部分代码不变。
sheet2部分代码改为以下
   With Worksheets("sheet2")
      For i = 4 To 60000
         If Trim(.Cells(i, 1)) = "" Then
           i_max = i
            Exit For
         End If
      Next i

      .Range("a" & i_max).Value = dh
      .Range("b" & i_max).Value = chsj
      .Range("c" & i_max).Value = chcs
      .Range("d" & i_max).Value = tvch
      .Range("e" & i_max).Value = dvdch
      .Range("f" & i_max).Value = vcdch
      .Range("g" & i_max).Value = tvkc
      .Range("h" & i_max).Value = dvdkc
      .Range("i" & i_max).Value = vcdkc
      .Range("j" & i_max).Value = dd
      .Range("k" & i_max).Value = ren
      .Range("l" & i_max).Value = cky
      
  End With

[ 本帖最后由 richiewong 于 2008-5-29 15:03 编辑 ]

松涛伴雨入帘栊

感谢richiewong的回答！
这些天很忙，
对于VBA我又是个纯粹的门外汉，以前对此总是敬而远之。
因此，只能先考贝下来，慢慢领会了！

fzwjz

真的不错,又学习了一种表单录入法

du123

谢谢  辛苦了[:50]

zss427607

学习中

ghfmac

还有一个问题是比如出货时间在这次没输时，下次这条数据会顶到这次没输的行里，所以这样不如access去做

相当板札

学习中

litong9999

真的不错,又学习了一种表单录入法

litong9999

学习了一种表单录入法

joyark

受益非浅