请教一下各位老师.

大友成

数据表样

怎样将几百行.数据表中不同位置的相同数据,以其周围的数据复制出来.比如图中,把B列中数字为5的单元格的行和它的上一行,下一行的单元格里的数据复制出来.

ｗǒ㊣ご看海

起码给个工作薄附件

蓝桥玄霜

1. Sub lqxs()
   
2. Dim Arr, i&, m&
   
3. Application.ScreenUpdating = False
   
4. Sheet1.Activate
   
5. Arr = [a1].CurrentRegion
   
6. For i = 2 To UBound(Arr) - 1
   
7.     If Arr(i, 2) = 5 Then
   
8.         m = m + 1
   
9.         Cells(i - 1, 2).Resize(3, 1).Copy Cells(m, 16): m = m + 2
   
10.     End If
    
11. Next
    
12. Application.ScreenUpdating = True
    
13. End Sub
    

复制代码

大友成

蓝桥玄霜 发表于 2012-12-11 14:20

非常感谢您的回复.

大友成

ｗǒ㊣ご看海 发表于 2012-12-11 14:20
起码给个工作薄附件

非常感谢您的回复.

大友成

蓝桥玄霜 发表于 2012-12-11 14:20

非常感谢您的回复,我还是看不懂你写的这些.

大友成

蓝桥玄霜 发表于 2012-12-11 14:20

谢谢您的回复,想向您请教一下,可以吗?

蓝桥玄霜

看不懂没有关系，没有学过就看得懂是天才了。

大友成

蓝桥玄霜 发表于 2012-12-12 18:59
看不懂没有关系，没有学过就看得懂是天才了。

非常感谢您的教导，您能把每一句是什么意思说一下吗？Sub lqxs()
Dim Arr, i&, m&
Application.ScreenUpdating = False
Sheet1.Activate
Arr = [a1].CurrentRegion
For i = 2 To UBound(Arr) - 1
    If Arr(i, 2) = 5 Then
        m = m + 1
        Cells(i - 1, 2).Resize(3, 1).Copy Cells(m, 16): m = m + 2
    End If
Next
Application.ScreenUpdating = True
End Sub