2016-08-18 8 views
-2

VBAの構文は何も分かりません。列Aのすべてのセルに数式を適用するだけのExcelマクロを作成する必要があります(式が連結= B1、C1、D1)をセルと比較して)1つの列に式を単に適用するExcelマクロ

私はこれに対する答えを探しましたが、多くの同様の質問がありましたが、それらはすべて非常に特殊であり、与えられたコードを操作することができませんこれを行う。何か助けてくれてありがとう。

+0

マクロを記録してコードを編集しようとしましたか? – newguy

+1

私はあなたが単純に列のセルに数式を配置するマクロを必要としない、数式を必要とするまでセルをドラッグします – Siva

+0

それは私よりもコンピュータに精通していない人のために、私は自動化しようとしていますできるだけそれらを処理してください。このワークブックは仕事を確認するためのもので、このシートはシステムの一部です。入力いただきありがとうございますが、はい、私はこれのためのマクロを作成したいと思います。また、録音を試みましたが、使用可能なコードを取得していないようです。 –

答えて

0

Do Whileループを使用して3つの別々の列を連結したコードですが、最小限の調整で多くの場合でも同じことができます。

これは、指定された各列の情報から同じ行のセルを横方向に連結し、各行が完了するまでループします。

Dim noSep As String 
noSep = "" 

Cells(1, 2) = columnOne 
Cells(1, 6) = columnTwo 
Cells(1, 8) = columnThree 
Cells(1, 47) = concatResult 

x = 2 
Do While Cells(x, columnOne) <> "" 
Cells(x, concatResult) = Cells(x, columnOne) & noSep & Cells(x, columnTwo) & noSep & Cells(x, columnThree) 
x = x + 1 
Loop 
関連する問題