Início / computer / Perguntas / 1538501
Accepted
baskar
Asked: 2020-04-04 05:23:54 +0800 CST

Como adicionar sufixo ao intervalo de células com dados existentes

  • 772

Entrada:

55958   55959       
55960   55961   55962   55963
60346   60347       
60348   60349

Resultado:

55958-K 55959-K     
55960-K 55961-K 55962-K 55963-K
60346-K 60347-K     
60348-K 60349-K

Desejo adicionar o sufixo "-K" a todo o intervalo de células.

Primeiro tentei com Custom Number Format { "#-K" }

Isso só funciona com formatos, então pulei (porque preciso com valor).

Então eu tento uma fórmula =IF(A1="","",A1&"-K"), mas aqui eu preciso preencher a fórmula manualmente até a última célula, então eu arrasto manualmente para baixo e para a direita.

Quando eu gravo para Macro, ele tem dados estáticos com células específicas,

Por fim, preciso do Dynamic VBA para fazer esse processo.

Sub Macro2()    'Macro2 Macro
    Sheets("Sheet3").Select
    Range("D2").Select
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    Selection.Copy
    Sheets("Process").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Cells.Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Sheets("Process").Select
    Range("A1").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(Sheet3!R[1]C[3]="""","""",Sheet3!R[1]C[3]&""-K"")"
    Range("A1").Select
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    'Selection.AutoFill Destination:=Range("A1:Z1000"), Type:=xlFillDefault
    'Range("A:Z").Select   End Sub
microsoft-excel vba

2 respostas

  1. Best Answer

    Selecione as células que deseja processar e execute isto:

    Sub Adding_a_K()
    Dim rng As Range, r As Range, v
    Set rng = Intersect(ActiveSheet.UsedRange, Selection)

    For Each r In rng
        v = r.Value
        If v <> "" Then
            r.Value = v & "-K"
        End If
    Next r
End Sub
    • 3

  2. Não há pontos suficientes para adicionar um comentário. Então fazendo um post...

    Para simplificar,

    1. Você pode adicionar uma nova planilha à pasta de trabalho
    2. Aplique a fórmula referente à folha de origem=IF(Sheet1!A1="","",Sheet1!A1&"-K")
    3. Copie e arraste pelo tamanho do conjunto de dados de origem.
    4. Por fim, remova todas as linhas/colunas extras que foram incluídas além do tamanho do conjunto de dados.

    --EDITAR--

    Sugestão de macro:

    Renomeie os nomes das planilhas de origem e saída conforme necessário.

    Sub AppendTextToAllCells()
'
' AppendTextToAllCells Macro
'
    Range("A1").Select
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    Selection.Copy
    Sheets("Output").Select
    Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.FormulaR1C1 = "=IF(Source!RC="""","""",Source!RC&""-K"")"
    Range("A1").Select
End Sub
    • 1

relate perguntas