[已解决]求VBA

oiufg

统计个数.rar (9.63 KB, 下载次数: 11)

2012-12-26 09:46 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

hoogle

2012-12-26 10:32

统计个数.rar (13.88 KB, 下载次数: 3)

2012-12-26 10:32 上传

点击文件名下载附件

跳转到最佳答案楼层

pureshadow

我承认我是函数脑袋
=SUM(COUNTIF(OFFSET($A3,,{1,2,3}),"*"&F$1:H$1&"*"))
ctrl+shift+enter

hoogle

1. Sub hoogle()
   
2. Range("e3:e65536").ClearContents
   
3. Dim i, j, temp
   
4. arr = Range("b3:e" & Range("b65536").End(3).Row)
   
5. For i = 1 To Range("b65536").End(3).Row - 2 Step 2
   
6.     For j = 1 To 3
   
7.         arr(i, 4) = arr(i, 4) + Len(arr(i, j)) - Len(Replace(arr(i, j), Cells(1, j + 5), ""))
   
8.     Next
   
9. Next
   
10. Range("b3").Resize(Range("b65536").End(3).Row - 2, 4) = arr
    
11. End Sub

复制代码

hoogle

统计个数.rar (13.88 KB, 下载次数: 3)

2012-12-26 10:32 上传

点击文件名下载附件

hwc2ycy

pureshadow 发表于 2012-12-26 10:31
我承认我是函数脑袋
=SUM(COUNTIF(OFFSET($A3,,{1,2,3}),"*"&F$1:H$1&"*"))
ctrl+shift+enter

小妖姐，你都学VBA了，要用VBA的思维想问题，

pureshadow

hwc2ycy 发表于 2012-12-26 10:33
小妖姐，你都学VBA了，要用VBA的思维想问题，

这个算不算

1. Sub Sample()
   
2. Dim MyRow As Long, MyCol As Long
   
3. Dim i
   
4. Dim lk
   
5. For MyRow = 3 To 11 Step 2
   
6.     i = 0
   
7.     For MyCol = 1 To 3
   
8.         lk = Cells(MyRow, MyCol + 1) Like "*" & Cells(1, 5 + MyCol) & "*"
   
9.         If lk Then
   
10.             i = i + 1
    
11.         End If
    
12.     Next
    
13.     Cells(MyRow, 6) = i
    
14. Next
    
15. End Sub

复制代码

hwc2ycy

pureshadow 发表于 2012-12-26 10:46
这个算不算

妖姐V5，

挣钱买房子

hwc2ycy 发表于 2012-12-26 10:33
小妖姐，你都学VBA了，要用VBA的思维想问题，

你好     我有一个问题想要请教  
  这个是我的扣扣号码330143908  
或者您方便的话可否留个您的联系方式
  很着急哦  期待期待，

hwc2ycy

挣钱买房子 发表于 2012-12-26 19:48
你好     我有一个问题想要请教  
  这个是我的扣扣号码330143908  
或者您方便的话可否留个您的联系方 ...

有问题直接发贴吧，有很多人都会帮忙的。