[已解决]同时选择多行。

kmcla · 发表于 2017-1-11 10:49

Sub sdfsdf()
Dim a(1 To 10000)
aaa = 1
Aff = Sheets("监基压").Range("A1:n" & Sheets("监基压").Range("A65536").End(3).Row)
For i = 25 To UBound(Aff) Step 25
   If Sheets("监基压").Cells(i + 4, 10) = Sheets("监基压").Cells(i - 25 + 4, 10) And Sheets("监基压").Cells(i + 4, 12) = Sheets("监基压").Cells(i - 25 + 4, 12) Then
   a(aaa) = i
   aaa = aaa + 1
   End If
      Next上面不用看

      For i = 1 To aaa
      Sheets("监基压").Rows(a(i)).Select
      怎么把a(i)数组里所有行号同时选择上？
      Next

End Sub

最佳答案

月排行榜 / 总排行榜

望帝春心

2017-1-11 11:17

Sub test()
Dim rng As Range
arr = Array(1, 3, 5, 7, 9, 25, 99)
For i = 1 To UBound(arr)
If Not rng Is Nothing Then
Set rng = Union(rng, Rows(arr(i)))
Else
Set rng = Rows(arr(i))
End If
Next
rng.Select
End Sub

复制代码

瞎写的示例，可能不是你想要的，感觉你想得好高端

跳转到最佳答案楼层

望帝春心 · 发表于 2017-1-11 10:57

得用UNION连上才能多选吧

kmcla · 发表于 2017-1-11 11:08

望帝春心发表于 2017-1-11 10:57
得用UNION连上才能多选吧

Union必须两个参数但数组付值，只能付一个
不可能把所有数组手动例出来，那就失去ＶＢＡ的意义了

望帝春心 · 发表于 2017-1-11 11:10

kmcla 发表于 2017-1-11 11:08
Union必须两个参数但数组付值，只能付一个
不可能把所有数组手动例出来，那就 ...

嗯，你是对的{:1112:}

望帝春心 · 发表于 2017-1-11 11:17

Sub test()
Dim rng As Range
arr = Array(1, 3, 5, 7, 9, 25, 99)
For i = 1 To UBound(arr)
If Not rng Is Nothing Then
Set rng = Union(rng, Rows(arr(i)))
Else
Set rng = Rows(arr(i))
End If
Next
rng.Select
End Sub

复制代码

瞎写的示例，可能不是你想要的，感觉你想得好高端

望帝春心 · 发表于 2017-1-11 11:21

把arr换成你的a就行了

kmcla · 发表于 2017-1-11 12:52

望帝春心发表于 2017-1-11 11:21
把arr换成你的a就行了

成功

Private Sub CommandButton1_Click()
Dim a(1 To 10000)
Dim rng As Range
Application.DisplayAlerts = False
Sheets("基压").Activate
Sheets("基压").Rows("1:" & Sheets("基压").Range("A65536").End(3).Row).Select
Sheets("基压").Rows("1:" & Sheets("基压").Range("A65536").End(3).Row).Copy
Sheets("监基压").Activate
Sheets("监基压").Rows("1:" & Sheets("监基压").Range("A65536").End(3).Row).Select
Sheets("监基压").Rows("1:" & Sheets("监基压").Range("A65536").End(3).Row).PasteSpecial xlPasteAll
aaa = 1
Aff = Sheets("监基压").Range("A1:n" & Sheets("监基压").Range("A65536").End(3).Row)
For i = 25 To UBound(Aff) Step 25
      If Aff(i + 4, 10) = Aff(i - 25 + 4, 10) And Aff(i + 4, 12) = Aff(i - 25 + 4, 12) Then
         a(aaa) = i
         aaa = aaa + 1
      End If
Next
For i = 1 To UBound(a)
      If Not rng Is Nothing Then
         Set rng = Union(rng, Rows(a(i) + 1 & ":" & a(i) + 25))
      Else
         Set rng = Rows(a(i) + 1 & ":" & a(i) + 25)
      End If
Next
rng.Delete
Application.DisplayAlerts = True
End Sub

望帝春心 · 发表于 2017-1-11 12:55

kmcla 发表于 2017-1-11 12:52
成功

Private Sub CommandButton1_Click()

成功了就好，有帮助就评下最佳吧

kmcla · 发表于 2017-1-12 17:52

望帝春心发表于 2017-1-11 12:55
成功了就好，有帮助就评下最佳吧

为什么第一行，无论什么情况都会选上，怎么排除？

望帝春心 · 发表于 2017-1-12 18:36

kmcla 发表于 2017-1-12 17:52
为什么第一行，无论什么情况都会选上，怎么排除？

按F8一步一步去调试吧

		自动登录	找回密码
密码			注册

[已解决]同时选择多行。

评分

评分