![](/img/trans.png)
[英]How find a Range based on one criteria then a Cell within that Range based on another criteria
[英]Find cells within a range if one cell equals a criteria copy its value to another column
我真的很难让它为我工作。 为了帮助解释我需要做什么,我在下面制作了一个(希望)非常简单的示例...
我想做的是:
A:A
找到J Bloggs
(请注意,可以有多个条目,而我需要所有这些条目) J Blogs
的订单时,请复制其订单日期B1
,请求del。 日期C1
和实际del。 日期D1
G1:J4
注意:客户列表可能很长,有些客户可能会单独下订单。 我需要生成所有这些订单的列表(无需检查日期是否在过去等)。
每次运行查询时,例如这次对H Simpson
,表H Simpson
G1:J4
只会显示H Simpson
的详细信息。
+---------------+----------------+---------------------+------------------+
| Customer | Order Date | Requested Delivery | Actual Delivery |
+---------------+----------------+---------------------+------------------+
| J Bloggs | 01/01/2013 | 02/01/2013 | 02/01/2013 |
| H Simpson | 05/01/2013 | 08/01/2013 | 09/01/2013 |
| A Name | 10/01/2013 | 10/01/2013 | 10/01/2013 |
| J Bloggs | 15/01/2013 | 22/01/2013 | 22/01/2013 |
+---------------+----------------+---------------------+------------------+
至少有三种不同的方法:
此处说明了如何使用VLOOKUP()获得多个结果:
你的幸运日! 我有空闲的空闲时间,并为您编写了此代码。
它将要求您提供Name
-您只需选择名称不想要为其生成数据的单元格
它将在G:J
列中创建一个表格 ,并在A:D
列中保留匹配结果
Sub Findining()
Dim r As Range, i As Long, j As Long, rng As Range
Range("G:J").ClearContents
For i = 1 To 4
Cells(1, i + 6) = Cells(1, i)
Next i
Set r = Application.InputBox("Select Name", Type:=8)
If r.Columns.Count > 1 Or r.Rows.Count > 1 Then
Do Until (r.Columns.Count = 1 And r.Rows.Count = 1)
MsgBox "You can only select 1 name"
Set r = Application.InputBox("Select Name", Type:=8)
Loop
End If
For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
Set rng = Range("A" & i)
If StrComp(r, rng, vbTextCompare) = 0 Then
For j = 0 To 3
Cells(Cells(Rows.Count, rng.Offset(0, 6 + j).Column).End(xlUp).Row + 1, rng.Offset(0, 6 + j).Column).Value = rng.Offset(0, j).Value
Next j
End If
Set rng = Nothing
Next i
Columns.AutoFit
End Sub
之前:
后:
我每次都与Vasim一起去,例如:
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.