excel vbaのメモ:それより上に重複しているもがあれば一致させるやつ。

エクセルのvbaのコードをのせます

abc, ,111,11,1
def, ,222,22,2
ghi, ,333,33,3
abc, ,,,
ghi, ,,,

なんていうやつに対して、
abc, ,111,11,1
def, ,222,22,2
ghi, ,333,33,3
abc, ,111,11,1
ghi, ,333,33,3

みたいな感じで変更させるものです。

A列について重複しているものがそれよりも上にあった場合に、そのセルのCDE列のものを同じ行のCDE列にコピーするもの

つくったものを張り付ける。
改良する可能性あり。


##########################################################
Sub それより上に重複しているもがあれば一致させるやつ()

Dim i As String
Dim p As String

i = 2
Do While Cells(i, 3).Value <> ""
p = 1
Do Until i = p + 1
If Cells(i, 1).Value = Cells(p, 1).Value Then
Cells(i, 3).Value = Cells(p, 3).Value
Cells(i, 4).Value = Cells(p, 4).Value
Cells(i, 5).Value = Cells(p, 5).Value
End If
p = p + 1
Loop
i = i + 1
Loop
End Sub
#########################################################

この記事へのコメント