求助：将取活动工作表转改成取其它sheet的内容

nthao

各位老师好：下述代码需要将活动的工作表Cells(Rows.Count, 2).End(xlUp).Row 改成调用其他工作表。


改了几次都没有很好的解决。 如：LastRow = Sheet2.UsedRange.Rows.Count


或者能直接调用同文件目前下的其他文件。
求助0810.rar (19.01 KB, 下载次数: 1)

2018-8-10 17:03 上传

点击文件名下载附件

Private Sub TextBox1_Change()


    Dim Arr() As Variant
    Dim LastRow As Long, Count As Long, i As Long
    LastRow = Cells(Rows.Count, 2).End(xlUp).Row
    ReDim Arr(1 To 7, 1 To LastRow)
    Count = 1
    For i = 2 To LastRow
        If Cells(i, "B") = TextBox1.Text Then
            Arr(1, Count) = Cells(i, "A")
            Arr(2, Count) = Cells(i, "B")
            Arr(3, Count) = Cells(i, "C")
            Arr(4, Count) = Cells(i, "D")
            Arr(5, Count) = Cells(i, "E")
            Arr(6, Count) = Cells(i, "F")
            Arr(7, Count) = Cells(i, "G")
            Count = Count + 1
        End If
    Next
    ReDim Preserve Arr(1 To 7, 1 To Count)
    ListBox1.ColumnCount = 7
    ListBox1.ColumnWidths = "50,40,50,50,50,80,20"
    ListBox1.List = Application.Transpose(Arr)


End Sub

nthao

求老师们指点、

蓝桥玄霜

LastRow = Cells(Rows.Count, 2).End(xlUp).Row
改为：
With Sheet2
    LastRow = .Cells(.Rows.Count, 2).End(xlUp).Row
End With

nthao

蓝桥玄霜 发表于 2018-8-11 10:12
LastRow = Cells(Rows.Count, 2).End(xlUp).Row
改为：
With Sheet2

谢谢老师的回复，测试后并无效果。 当前我使用的是：
Sheets(2).Select
LastRow = Cells(Rows.Count, 2).End(xlUp).Row

同时配合Sheets(2).Visible显示、隐藏。