Question

我有一个大约11,000行的电子表格。我有一个大约700个行号的列表，我想要选择。它们有点随机;不是特定的范围＆＃39;数字。

是否有更简单的方法滚动电子表格并逐个选择这些行？

行号列表位于.csv文件中，如果有帮助的话。

谢谢！

可能的解决方案我想实现：VB，C＃或Excel中的某些东西

Answer 1

你打算用这些行做什么？如果您正在寻找VBA解决方案，我建议将这个想法进一步推进。这是因为不建议在代码中使用.Select，但如果只是想要获取行号并查看行，那么它就好了......只是一个注释。

这将取你的行号，我认为它已经打开并且在A列中，来自A1：A [无论如何]没有任何中断：

Sub test()
Dim lastRow As Integer, i As Integer, k As Integer
Dim rowNums() As Variant
Dim rng As Range, cel As Range

lastRow = Cells(1, 1).End(xlDown).Row
Set rng = Range(Cells(1, 1), Cells(lastRow, 1))

ReDim rowNums(1 To rng.Count)

rowNums = rng.Value

Dim addRows As Integer

For i = LBound(rowNums) To UBound(rowNums)
    If i >= rng.Count Then Exit For
    addRows = Range(Cells(rowNums(i, 1) + 1, 1), Cells(rowNums(i + 1, 1) - 1, 1)).Count
    'Range(Cells(rowNums(i, 1) + 1, 1), Cells(rowNums(i + 1, 1) - 1, 1)).Select
    Range(Cells(rowNums(i, 1) + 1, 1), Cells(rowNums(i + 1, 1) - 1, 1)).EntireRow.Delete
    For k = LBound(rowNums) To UBound(rowNums)
        rowNums(k, 1) = rowNums(k, 1) - addRows
    Next k
Next i

End Sub

在Excel中按行号选择数百行

1 个答案: