(已解决)关于 [a65536].End(3).Row

huanghui-hunter

我是超级菜的菜鸟，询问下：For i = 1 To [a65536].End(3).Row  意思是单列的所有行号，那么如果只对10到100行进行定位编辑，代码如何写啊？



最终以分表解决

[ 本帖最后由 huanghui-hunter 于 2011-4-7 11:36 编辑 ]

dsmch

问题不清，理解不明。

huanghui-hunter

就是不需要对整个表的所有行号调用，只队部分行号调用

yaozong

For i = 10 To 100

dsmch

原帖由 huanghui-hunter 于 2011-3-29 14:32 发表
就是不需要对整个表的所有行号调用，只队部分行号调用

楼主的理解错误
[a65536].End(3).Row  指的是从a65536往上第一个非空单元格的行号。

huanghui-hunter

以下是原代码：
Private Sub cmdSave_Click()
On Error Resume Next
     Dim k As Byte
    For k = 1 To 4
     Set Control = Controls(Split("ComboBox1.Text,ComboBox1,ComboBox2,ComboBox3,ComboBox4,", ",")(k - 1))
    If Control.Value = "" Then
    MsgBox Split("单位,,单据号,结算方式", ",")(k - 1) & "为空,请重新输入!", 48, "提示"
    Control.SetFocus
    Exit Sub
    End If
    Next
Set rg = Worksheets("收支表").Range("C:C").Find(ComboBox2.Text)
If Not rg Is Nothing Then
MsgBox "这个单据号已经存在！"
Exit Sub
End If

Worksheets("收支表").Activate
    Myr = [a65536].End(xlUp).Row
    n = Myr + 1
    Cells(n, 1).Value =  ComboBox1.Text
    Cells(n, 2).Value = ComboBox2.Text
    Cells(n, 3).Value = ComboBox3.Text
    Cells(n, 4).Value = ComboBox4.Text
        n = n + 1
  Call 清除控件
    Application.ScreenUpdating = True
    MsgBox "已录入!!", 64, "提示"
End Sub

我想询问的是 Myr = [a65536].End(xlUp).Row 这条代码，能限定为10-100行之间么？
代码怎么写呢。
因为是菜鸟，所以比较罗嗦，勤学好问，别介意啊
如果用4楼的代码，NEXT该放哪？

dsmch

理解一下含义，相信自己就能解决
msgbox  [a65536].End(xlUp).Row

huanghui-hunter

菜鸟嘛，只明白是调用行号，我的表格是分段的，10~100，102~200。。。。。，每部分的行均有个分部表头，为了不覆盖，该怎么调用呢？

huanghui-hunter

表的基本格式是这样子的（附件），谁给帮个忙嘛。。。。
以下部分怎么改嘛。。。不想破坏表的基本格式，多建个表很麻烦滴
Worksheets("sheet1").Activate
    Myr = [a65536].End(xlUp).Row
    n = Myr + 1
    Cells(n, 1).Value =  ComboBox1.Text
    Cells(n, 2).Value = ComboBox2.Text
    Cells(n, 3).Value = ComboBox3.Text
    Cells(n, 4).Value = ComboBox4.Text
        n = n + 1

huanghui-hunter

有帮忙解决的没啊