求vba用窗体列表框查询工作表内容代码答:Dim arr, i&, t1, t2, r, c, n, m& r = ActiveSheet.UsedRange.Rows.Count c = ActiveSheet.UsedRange.Columns.Count arr = Range([a1], Cells(r, c))t1 = TextBox1.Value t2 = TextBox2.Value n = Application.CountIfs([c:c], ">=" & t1, [c:c], "<=" & t2)ReDim ...