如何用公式获取筛选后第一个可见单元格的字符串

袁勇

1. =LOOKUP(1,SUBTOTAL(3,OFFSET(C2,,,ROW(1:100))),C3:C102)

复制代码

wnccmxm

准提部林 发表于 2019-12-9 13:50
=INDEX(A:A,MATCH(1,SUBTOTAL(3,OFFSET(A2,ROW(1:199),)),)+2)

數組公式(三鍵完成)

棒，这个效果好
请问，这个数组公式在VBA里怎么使用？

在此先谢了

准提部林

wnccmxm 发表于 2020-1-31 10:42
棒，这个效果好
请问，这个数组公式在VBA里怎么使用？

是要用vba將公式放入單元格???
還是將公式的結果取出來(值或單元格位址)???

上傳範例檔才好解決~~

@刘卓

=LOOKUP(,0/FREQUENCY(1,SUBTOTAL(3,OFFSET(C2,ROW(1:999),))),C3:C4)

wnccmxm

准提部林 发表于 2020-1-31 11:00
是要用vba將公式放入單元格???
還是將公式的結果取出來(值或單元格位址)???

好的，我给你发文件。

具体是，sheet1工作表数据筛选后，把筛选后可见行的第1行，第3列单元格的内容，复制到sheet1工作表非筛选区的第一行，第2列单元格。

wnccmxm

@刘卓 发表于 2020-1-31 11:51
=LOOKUP(,0/FREQUENCY(1,SUBTOTAL(3,OFFSET(C2,ROW(1:999),))),C3:C4)

我试试，这个是否可用于VBA代码中。

谢谢你！

wnccmxm

@刘卓 发表于 2020-1-31 11:51
=LOOKUP(,0/FREQUENCY(1,SUBTOTAL(3,OFFSET(C2,ROW(1:999),))),C3:C4)

这个公式不是针对筛选结果进行选择性复制粘贴。

其结果是实际的行列字符。

谢谢你的参与。

准提部林

wnccmxm 发表于 2020-1-31 12:12
好的，我给你发文件。

具体是，sheet1工作表数据筛选后，把筛选后可见行的第1行，第3列单元格的内容， ...

Sub TEST()
Dim Fng As Range, A As Range
If ActiveSheet.FilterMode = False Then Exit Sub '若未執行篩選, 跳出
Set Fng = ActiveSheet.AutoFilter.Range '工作表的篩選區
For Each A In Fng.Columns(3).Cells  '以篩選區第3列進行判斷
    If A.Row > 1 And A.Rows.Hidden = False Then  'Row = 1 為標題行, 所以必須從第二行開始判斷
       MsgBox A.Address '第一個可見單元格位址
       MsgBox A.Value  '其值
       Exit For
    End If
Next
End Sub

只要了解以上程式碼作用, 即可自行調適運用

x0001.rar (7.75 KB, 下载次数: 8)

2020-1-31 12:54 上传

点击文件名下载附件

wnccmxm

准提部林 发表于 2020-1-31 12:58
Sub TEST()
Dim Fng As Range, A As Range
If ActiveSheet.FilterMode = False Then Exit Sub '若未執 ...

谢谢你！
我学习学习