が。この式は、列の最後まで下にコピーする必要があります。ドラッグダウン私は、列S（= CONCATENATE（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
あなたはすべての式を望んでいません列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
私はコピーして特殊なペーストをする必要があります –
これは宿題に関する質問でない限り、**いいえ**あなた**コピー＆ペーストする必要はありません**。一度にすべてのセルに数式を書き込むことができます。 – Jeeped
私は理解しています。しかし、一度式が適用されたら、私はSカラムをコピーしてそれを貼り付ける必要があるように、p、q、＆rカラムを削除する必要があります –
私はこの質問が否決された理由として骨董品だ私は答えがあることであると仮定します。コードは間違っていますが、他の目標の中でも、コーディングの間違いを訂正することはそれほど重要なことではありませんか？考えてみましょう。それらのe以上のコードミス、そうですか？なぜそれらの質問は必然的に投票されないのですか？ （明確にするために、私はOPには関係がなく、単にそれを理解しようとしている）。 – EranG