Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Массовая замена текста в кавычках на тексты из перечня
 
#1
04.01.2022 18:35:52
Здравствуйте!
Есть два столбца.
Хочется чтобы каждый никнейм справа встал на место текста "696969" в кавычках в левом столбе!
Я не достаточно компетентен поэтому прошу помощи)
Спасибо!
 
 
 
#2
04.01.2022 18:40:46
И Вам здравствуйте!
Кавычки - так правильно.
 
 
 
#3
04.01.2022 19:02:12
=IF(COUNTIF(A2;"*696969*");SUBSTITUTE(A2;696969;INDEX(C:C;COUNTIF(A$1:A2;"*696969*")+1));A2)
Изменено: БМВ - 04.01.2022 19:15:27
По вопросам из тем форума, личку не читаю.
 
 
 
#4
04.01.2022 19:08:17
макрос
Код
Sub qwerty()
    Dim r, lr, m, ri, lr1, m1, t, z: z = "696969"
    With ActiveSheet
        lr = Cells(Rows.Count, 1).End(xlUp).Row
        m = .Cells(1, 1).Resize(lr).Value
        lr1 = Cells(Rows.Count, 3).End(xlUp).Row
        m1 = .Cells(1, 3).Resize(lr1).Value
        ri = 1
        For r = 1 To UBound(m)
            If InStr(1, m(r, 1), z) > 0 Then
                ri = ri + 1
                If ri > lr1 Then Exit For
                t = m1(ri, 1)
                m(r, 1) = Replace(m(r, 1), z, t)
            End If
        Next r
        .Cells(1, 1).Resize(lr) = m
    End With
End Sub
 
 
 
#5
04.01.2022 19:18:15
Спасибо всем огромное)
 
 
 
#6
04.01.2022 19:29:54
ну и
Код
Sub Macro1()
For Each cell In Range("c2:c60")
    Set c = Columns(1).Find(What:=696969, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)
    If c Is Nothing Then Exit For
    c.Replace What:=696969, Replacement:=cell, LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
Next
End Sub
По вопросам из тем форума, личку не читаю.
 
 
 
Страницы: 1
Наверх