Блог

я пытаюсь создать макрос, который может:

1. найдите слово «Да» во всех строках столбца E, скопируйте и вставьте его в соответствующую строку в столбце B (в той же строке)
2. Объедините ячейку в столбце B с ячейкой в столбце C

Например: макрос выполняет поиск слова «Да» в столбце E, слово «Да» находится в E5, скопируйте и вставьте «Да» в B5, объедините B5 и C5 и подтвердите объединение (excell всегда отображает всплывающее окно с просьбой вручную нажать на кнопку, чтобыподтвердите объединение), перейдите к следующему поиску.

Пожалуйста, попробуйте следующий код. Он ничего не будет запрашивать при объединении ячеек, и область примет значение левой ячейки (B = Yes). Если вам нужно значение в C или конкатенация между двумя ячейками, вы должны сообщить нам, что:

 Sub testMergeYesWord()
 Dim sh As Worksheet, lastR As Long, i As Long
 
 Set sh = ActiveSheet 'use here the sheet you need
 lastR = sh.Range("E" amp; rows.count).End(xlUp).row
    
 For i = 2 To lastR
    If UCase(sh.Range("E" amp; i).Value) = "YES" Then
        sh.Range("B" amp; i).Value = sh.Range("E" amp; i).Value
        Application.DisplayAlerts = False 'to avoid the message asking what value to be allocate to the merged area
         sh.Range("B" amp; i amp; ":C" amp; i).merge
        Application.DisplayAlerts = True
    End If
 Next i
 MsgBox "Ready..."
End Sub