ループ値は、その列のセルで見つかった場合、同じ行の隣接セルに既に値にその値を追加

Question

例、列を検索

 A B C D 
1 
2  15  16 
3 

VBAのループマクロ実測値セルC2は、同じ行のセルA2の値にこの値を追加しますので、このようにセルA2 31の値を作成し、セルC2

Answer 1

Dim y, x, search as Integer 
Dim searchRadius as Integer 'Radius of Cells you want to search in (e.g. 100x100) 

search = TextBox1.Value  'set search to something 
y = 1 
x = 2 

For y = 1 To searchRadius 
    If Cells(y, x) = search Then 
     Cells(y, 1).Value = Cells(y, 1).Value + search 
     Cells(y, x).Select 
     Cells(y, x) = "" 
    End If 
    If y = searchRadius and x <= searchRadius Then 
     x = x + 1 
     y = 0 
    End If 
Next y 

からの値があなたのためにこの作業を行いクリア？