[已解决]求个简单的vba

lkjpoi

Book1.rar (17.88 KB, 下载次数: 7)

2012-5-24 12:41 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

hrpotter

2012-5-24 12:56

1. Sub test()
   
2.     Dim ar, s
   
3.     Dim i As Integer, j As Integer
   
4.     s = Range("a9")
   
5.     ar = Range("d11").CurrentRegion
   
6.     For j = 1 To UBound(ar, 2)
   
7.         For i = 1 To UBound(ar)
   
8.             If ar(i, j) - s = 0 Then
   
9.                 Cells(2, j + 3).NumberFormatLocal = "@"
   
10.                 Cells(2, j + 3) = ar(i, j)
    
11.                 Exit For
    
12.             End If
    
13.         Next
    
14.     Next
    
15. End Sub

复制代码

跳转到最佳答案楼层

hrpotter

1. Sub test()
   
2.     Dim ar, s
   
3.     Dim i As Integer, j As Integer
   
4.     s = Range("a9")
   
5.     ar = Range("d11").CurrentRegion
   
6.     For j = 1 To UBound(ar, 2)
   
7.         For i = 1 To UBound(ar)
   
8.             If ar(i, j) - s = 0 Then
   
9.                 Cells(2, j + 3).NumberFormatLocal = "@"
   
10.                 Cells(2, j + 3) = ar(i, j)
    
11.                 Exit For
    
12.             End If
    
13.         Next
    
14.     Next
    
15. End Sub

复制代码