[已解决]选定区域符合条件输出对应前一列单元格的值到另外一张表

fzu.134

1        n        7        y
2        y        8        n
3        n        9        y
4        y        10        n
5        y        11        n
符合n的前一列输出 结果如
1
3
8
10
11

ps：没间隔1列都有 n/y  批量处理

最佳答案

月排行榜 / 总排行榜

yyyydddd8888

2013-12-2 12:45

请测试：
Book111.rar (7.08 KB, 下载次数: 17)

2013-12-2 12:49 上传

点击文件名下载附件

假设数据在sheet2中，可以这样写：
如果数据在另外的工作表中，可以把arr=sheets(2)改为sheets("工作表名").usedrange.
如果要得到的数据想在其它的工作表中，那么就把
Sheets(2).Range("m1").Resize(k + 10, 1) = ""
Sheets(2).Range("m1").Resize(k, 1) = brr
这两句改成：Sheets(“目标工作表名”).Range("m1").Resize(k + 10, 1) = ""
                      Sheets(“目标工作表名").Range("m1").Resize(k, 1) = brr

1. Sub test2()
   
2. Dim arr, brr(1 To 1000000, 1 To 1) As Long, i&, j&, k&
   
3. arr = Sheets(2).UsedRange
   
4. 
   
5. For i = 2 To UBound(arr, 2) Step 2
   
6.     For j = 1 To UBound(arr)
   
7.         If arr(j, i) = "n" Then
   
8.             k = k + 1
   
9.             brr(k, 1) = arr(j, i - 1)
   
10.         End If
    
11.    Next j
    
12. Next i
    
13. Sheets(2).Range("m1").Resize(k + 10, 1) = ""
    
14. Sheets(2).Range("m1").Resize(k, 1) = brr
    
15. End Sub
    

复制代码

跳转到最佳答案楼层

zhp3

分两列做的。
Book1.zip (2.61 KB, 下载次数: 12)

2013-12-2 12:44 上传

点击文件名下载附件

yyyydddd8888

请测试：
Book111.rar (7.08 KB, 下载次数: 17)

2013-12-2 12:49 上传

点击文件名下载附件

假设数据在sheet2中，可以这样写：
如果数据在另外的工作表中，可以把arr=sheets(2)改为sheets("工作表名").usedrange.
如果要得到的数据想在其它的工作表中，那么就把
Sheets(2).Range("m1").Resize(k + 10, 1) = ""
Sheets(2).Range("m1").Resize(k, 1) = brr
这两句改成：Sheets(“目标工作表名”).Range("m1").Resize(k + 10, 1) = ""
                      Sheets(“目标工作表名").Range("m1").Resize(k, 1) = brr

1. Sub test2()
   
2. Dim arr, brr(1 To 1000000, 1 To 1) As Long, i&, j&, k&
   
3. arr = Sheets(2).UsedRange
   
4. 
   
5. For i = 2 To UBound(arr, 2) Step 2
   
6.     For j = 1 To UBound(arr)
   
7.         If arr(j, i) = "n" Then
   
8.             k = k + 1
   
9.             brr(k, 1) = arr(j, i - 1)
   
10.         End If
    
11.    Next j
    
12. Next i
    
13. Sheets(2).Range("m1").Resize(k + 10, 1) = ""
    
14. Sheets(2).Range("m1").Resize(k, 1) = brr
    
15. End Sub
    

复制代码

liyh67

Book1.rar (1.92 KB, 下载次数: 12)

2013-12-2 12:45 上传

点击文件名下载附件

fzu.134

感谢3位高手的指点
  函数方面有些看不懂，不过仍然感谢大家的帮忙，都能实现符合条件输出数据

yyyydddd8888 的vba 和我想的意图比较接近，有个别几个语句还需要请教你一下

fzu.134

我查找no的范围是第11行到50，列是第2到46
但是如下的代码，如果同行有多个no 条件判断后仅显示 该行的最前面1列的 值，高手指点 一下 如下的代码应该怎么改 才能达到遍历这个范围的所有no对应前一列指 返回依次显示指定位置，谢谢

   Dim x As Integer, y As Integer, z As Integer
z = 2
For x = 11 To 50 Step 1
For y = 1 To 46 Step 1
  Do While Cells(x, y).Value = "no"
    Worksheets("no-list").Cells(z, "a") = Cells(x, y - 1)
    z = z + 1
    Exit For
    Exit For
    Loop
Next y
Next x