如何連接過濾列表頂部的2個單元格？ （EXCEL宏）

Question

所以我現在搜索了幾個小時，似乎無法找到解決我的問題。 我有一個13000+行的列表，但我已經自動將其過濾到大約200個，現在我想要的是，讓我們假設，列表的頂部現在顯示爲A1，然後由於過濾器而直接顯示爲A28。 我想將單元格A28和B28中的文本連接起來並放入單元格J28中。 我能夠做到這一點很容易手動，但是當我錄製宏的行爲該代碼出現

Sub concat() 
' 
' concat Macro 
' 

' 
    ActiveCell.FormulaR1C1 = "=RC[-9]&RC[-8]" 
    Range("J28").Select 
    Selection.FillDown 
End Sub 

現在，我不知道什麼

"=RC[-9]&RC[-8]" 

手段，但是當我運行宏它不會導致我想要的。

如果我不清楚這個問題，我提前道歉，但我確實需要幫助。

謝謝！

Varun的

Answer 1

這是可行的，但你必須先關掉過濾器：

Sub FillDown() 
Dim ws As Excel.Worksheet 
Dim LastRow As Long 

Set ws = ActiveSheet 
With ws 
    LastRow = ws.Range("A" & .Rows.Count).End(xlUp).Row 
    .Range("J2:J" & LastRow).FormulaR1C1 = "=RC[-9]&RC[-8]" 
End With 
End Sub 

我不明白爲什麼你不只是關閉過濾器和手動複製下來公式儘可能必要。