Execl高手用VBA解决数据两个统计区域

Question

只有http://pan.baidu.com/s/1gd7vRSv

Answer 1

代码如下，详见附件。

Sub 统计()
   Dim Ro%, I%, K1%, P1%, NL%, NR%
   K1 = Range("K1").Value: P1 = Range("P1").Value
   NL = 20: NR = 20
   Ro = [A65536].End(3).Row
   Range("J20:Z" & Ro).ClearContents
   For I = 10 To Ro - P1
      If Not Range("B" & I & ":G" & I).Find(K1, , , 1) Is Nothing Then
         Range("A" & I & ":G" & I).Copy Range("J" & NL)
         NL = NL + 1
      End If
   Next
   For I = Ro - P1 + 1 To Ro
      If Not Range("B" & I & ":G" & I).Find(K1, , , 1) Is Nothing Then
         Range("A" & I & ":G" & I).Copy Range("S" & NR)
         NR = NR + 1
      End If
   Next
End Sub

你的问题太多，其实都不算难，难的是不能理解你的意图。

追问

语文没有学好，也不会编程，有怪莫怪啊

Answer 2

应该用VBA编程实现了吧