向下拖動式

-2

我在列應用公式S（=串連（P1，Q2，R3）。這個公式必須複製下來，直到柱端。向下拖動式

ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-3],RC[-2],RC[-1])" 

Range("S1").Select 

Selection.copy 

Range("S:S").Select 

ActiveSheet.Paste 

Application.CutCopyMode = False

來源

2017-07-11 Akshay Ghanate

我很好奇，爲什麼這個問題被拒絕投票，我假設答案是這樣的代碼是錯誤的，但是它不是糾正編碼錯誤以及其他目標的全部意義嗎？並且想到它，大多數帶有代碼的問題都在e或更多代碼錯誤，對吧？那麼爲什麼這些問題不一定會被投票呢？（爲了澄清，我與OP沒有任何關係，只是試圖理解它）。 – EranG

你不想公式所有到S列底部的方法;你只需要它到列P，Q和R中最後一個使用過的單元格。

dim lr as long 

with worksheets("sheet1") 
    lr = application.max(.cells(.rows.count, "P").end(xlup).row, _ 
         .cells(.rows.count, "Q").end(xlup).row, _ 
         .cells(.rows.count, "R").end(xlup).row) 
    .range(.cells(1, "S"), .cells(lr, "S")).FormulaR1C1 = "=CONCATENATE(RC[-3], RC[-2], RC[-1])" 
end with

來源

2017-07-11 18:31:56 Jeeped

我需要複製和特殊粘貼 –

除非這是一個家庭作業問題，那麼**沒有**你**不**必須複製和粘貼。您可以一次將公式寫入所有單元格。 – Jeeped

我明白..但一旦公式應用，然後我需要刪除p，q，＆r列，以便我需要複製S列並專門粘貼它 –

回答

相關問題