[已解决]帮忙看一下数据拷贝问题 谢谢

nanohappy

将B表特定数据拷贝至A表之中     谢谢
谢谢.zip (15.31 KB, 下载次数: 7)

2013-5-21 18:50 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

ligh1298

2013-5-21 19:08

1. Sub 复制()
   
2. Dim zz%, n%, j%, rng As Range
   
3. Sheets("原材料").[a2:c999].ClearContents
   
4. zz = Sheets("过渡").Range("a65536").End(xlUp).Row
   
5.     For Each rng In Sheets("过渡").Range("a1:c" & zz)
   
6.     If rng.Value = "工段a" Then
   
7.     n = n + 1
   
8.     For j = 1 To 3
   
9.     Sheets("原材料").Cells(n + 1, j) = Sheets("过渡").Cells(rng.Row, j)
   
10.     Next
    
11.     End If
    
12.     Next
    
13. End Sub
    

复制代码

跳转到最佳答案楼层

ligh1298

先给你来一个函数的。在A2输入以下数组公式，数组公式（把鼠标放在编辑栏中，Ctrl+Shift+Enter三键同时按！）右拉、下拉。
=INDEX(过渡!A:A,SMALL(IF(过渡!$A$3:$A$300="工段a",ROW($3:$299),4^8),ROW(A1)))&""

再考虑VBA代码的（俺VBA水平有限，思维慢）

nanohappy

ligh1298 发表于 2013-5-21 18:58
先给你来一个函数的。在A2输入以下数组公式，数组公式（把鼠标放在编辑栏中，Ctrl+Shift+Enter三键同时按！ ...

先谢谢这位朋友 我想试试用vba来解决

ligh1298

1. Sub 复制()
   
2. Dim zz%, n%, j%, rng As Range
   
3. Sheets("原材料").[a2:c999].ClearContents
   
4. zz = Sheets("过渡").Range("a65536").End(xlUp).Row
   
5.     For Each rng In Sheets("过渡").Range("a1:c" & zz)
   
6.     If rng.Value = "工段a" Then
   
7.     n = n + 1
   
8.     For j = 1 To 3
   
9.     Sheets("原材料").Cells(n + 1, j) = Sheets("过渡").Cells(rng.Row, j)
   
10.     Next
    
11.     End If
    
12.     Next
    
13. End Sub
    

复制代码