2016-08-18 65 views
-2

我對VBA語法一無所知,而且我需要創建一個Excel宏,它將簡單地將公式應用於列A中所有填充的單元格。(Formula being = concatenate( B1,C1,D1)相對於細胞)Excel宏,將簡單地將公式應用於一列

我已經搜索了這個答案,雖然有很多類似的問題,但它們都非常具體,我無法操縱給出的代碼,以便它會做這個。感謝您的任何幫助。

+0

您是否嘗試過錄制宏並編輯代碼? – newguy

+1

我不需要宏來簡單地在列的單元格中放置一個公式,只需將它拖動到單元格中,就可以使用公式 – Siva

+0

對於比我更少精通計算機的人,我試圖自動化儘可能地爲他們處理。這本工作手冊是用來檢查他們的工作,這張表是系統的一部分。感謝您的意見,但是,我想爲此創建一個宏。另外,我嘗試過錄制,但我似乎沒有從中獲取可用的代碼。 –

回答

0

這裏有一段代碼是我用Do While循環來連接三個獨立的列所寫的,你可以用最少的調整來做同樣的事情。

它將從每個指定列中的信息橫向跨越同一行的單元格並循環直到每行完成。

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