Excel里怎样实现多条件筛选并赋值当前单元格
如果C4：C10范围内能查到到R(一个或多个)，则C3显示R
=IF(COUNTIF(C4:C10,"R")0,"R","")
其他类推
关于EXCEL的筛选赋值
应该是vlookup的典型使用, 用来检索现有列表信息, 通过客户名称检索该客户的其他信息.假如A-C列是原始信息, 在E列进行查询然后在F列显示相应的信息E1输入三元 F1输入函数: =vlookup(E1,A:C,2) 得到的就是对应三元的B列的信息
EXCEL VBA 筛选，对筛选结果赋值或计算
dim
i
as
long
'获取A列末行
dim
endRowA
as
long
endRowA
=range("A:"
rows.count).end(xlUp).row
'循环第二行至A列末行
for
i=2
to
endRowA
if
range("A:"
i).value5
then
'对A列进行筛选，这里的筛选条件是值大于5
Rows(i
":"
i).EntireRow.Hidden
=
False
'满足条件的取消行隐藏
range("B:"
i).value=range("A:"
i).value
'操作B列，这里B列赋值为A列的值
else
Rows(i
":"
i).EntireRow.Hidden
=
True
'不满足条件的进行隐藏
next
i
求Excel VBA对筛选结果其他列赋值代码，举例筛选A列等于1的，把B列的值替换为11，C列填入内容K,谢谢！
两种 方法：
一种是用筛选的方法：
Private Sub CommandButton1_Click()
'把A列筛选为1
Range("a1:c" Range("a65536").End(xlUp).Row).AutoFilter 1, "1"
'取筛选后最后一行的行标
row1 = Range("a65536").End(xlUp).Row
'把B列筛选后的第一个单元格等于11,以列的等于K
Range("b2:b65536").SpecialCells(xlCellTypeVisible)(1) = 11
Range("c2:c65536").SpecialCells(xlCellTypeVisible)(1) = "k"
'把B列,c列向下填充
Range(Range("b2:b65536").SpecialCells(xlCellTypeVisible)(1), Range("b" row1)).FillDown
Range(Range("c2:c65536").SpecialCells(xlCellTypeVisible)(1), Range("c" row1)).FillDown
End Sub
二种是用for循环
Private Sub CommandButton1_Click()
For i = 2 To Range("a65536").End(xlUp).Row
If Range("a" i) = 1 Then
Range("b" i) = 11
Range("c" i) = "k"
End If
Next i
End Sub