[已解决]vba求助

bhgyuj123

Book1.rar (23.89 KB, 下载次数: 9)

2013-1-4 21:19 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

青城山苦丁茶

2013-1-4 21:57

Sub test()
Dim ar1()
i% = [d65536].End(3).Row
ar1 = [d10].Resize(i - 9, 1).Value
For i = 1 To UBound(ar1)
   If Right(Mid(ar1(i, 1), 1, 1) * 1 + Mid(ar1(i, 1), 2, 1), 1) = "5" Or Right(Mid(ar1(i, 1), 1, 1) * 1 + Mid(ar1(i, 1), 3, 1), 1) = "5" Or Right(Mid(ar1(i, 1), 3, 1) * 1 + Mid(ar1(i, 1), 2, 1), 1) = "5" Then
      r = r% + 1
      s = ar1(i, 1)
      ar1(r, 1) = ar1(i, 1)
   ElseIf Right(Mid(ar1(i, 1), 1, 1) - Mid(ar1(i, 1), 2, 1) + 10, 1) = "5" Or Right(Mid(ar1(i, 1), 1, 1) - Mid(ar1(i, 1), 3, 1) + 10, 1) = "5" Or Right(Mid(ar1(i, 1), 3, 1) - Mid(ar1(i, 1), 2, 1) + 10, 1) = "5" Then
      r = r% + 1
      s = ar1(i, 1)
      ar1(r, 1) = ar1(i, 1)
   End If
Next
[a10].Resize(r, 1) = ar1
End Sub

跳转到最佳答案楼层

青城山苦丁茶

Sub test()
Dim ar1()
i% = [d65536].End(3).Row
ar1 = [d10].Resize(i - 9, 1).Value
For i = 1 To UBound(ar1)
   If Right(Mid(ar1(i, 1), 1, 1) * 1 + Mid(ar1(i, 1), 2, 1), 1) = "5" Or Right(Mid(ar1(i, 1), 1, 1) * 1 + Mid(ar1(i, 1), 3, 1), 1) = "5" Or Right(Mid(ar1(i, 1), 3, 1) * 1 + Mid(ar1(i, 1), 2, 1), 1) = "5" Then
      r = r% + 1
      s = ar1(i, 1)
      ar1(r, 1) = ar1(i, 1)
   ElseIf Right(Mid(ar1(i, 1), 1, 1) - Mid(ar1(i, 1), 2, 1) + 10, 1) = "5" Or Right(Mid(ar1(i, 1), 1, 1) - Mid(ar1(i, 1), 3, 1) + 10, 1) = "5" Or Right(Mid(ar1(i, 1), 3, 1) - Mid(ar1(i, 1), 2, 1) + 10, 1) = "5" Then
      r = r% + 1
      s = ar1(i, 1)
      ar1(r, 1) = ar1(i, 1)
   End If
Next
[a10].Resize(r, 1) = ar1
End Sub

bhgyuj123

青城山苦丁茶 发表于 2013-1-4 21:57
Sub test()
Dim ar1()
i% = [d65536].End(3).Row

不能把c2固定成是5,

青城山苦丁茶

自己换下嘛

bhgyuj123

青城山苦丁茶 发表于 2013-1-4 22:12
自己换下嘛

换了,但会显示运行错误"1004"