Início / computer / Perguntas / 1729479
Accepted
pbies
Asked: 2022-07-02 12:52:54 +0800 CST

Excel - multiplica textos/strings/palavras

  • 772

Eu tenho a coluna A com nomes de domínio e a coluna B com TLD = domínios de primeiro nível. Eu preciso multiplicar cada palavra da coluna A por cada palavra da coluna B e colocar o resultado na coluna C (conectar nome de domínio com nome de domínio de nível superior). Além disso, preciso adicionar um ponto entre a palavra de A e a palavra de B.

A coluna C deve ter registros A*B.

Como eu posso fazer isso?

╔═════════╦═════╦═════════════╗
║ domain1 ║ org ║ domain1.org ║
╠═════════╬═════╬═════════════╣
║ domain2 ║ net ║ domain1.net ║
╠═════════╬═════╬═════════════╣
║ domain3 ║ com ║ domain1.com ║
╠═════════╬═════╬═════════════╣
║         ║     ║ domain2.org ║
╠═════════╬═════╬═════════════╣
║         ║     ║ domain2.net ║
╚═════════╩═════╩═════════════╝
                  ...
microsoft-excel

2 respostas

  1. Best Answer

    Se não for possível usar um código VBA, você pode obter o mesmo resultado de maneira estereotipada. Digite a fórmula abaixo na célula C1 e copie-a até onde for necessário (simplesmente determinado pelo cálculo do número de linhas na coluna A vezes o número de linhas na coluna B; mas você a verá de qualquer maneira quando tiver células vazias). Você também pode colar a fórmula em qualquer outra célula, mas precisa certificar-se de que as partes apropriadas da fórmula sejam ajustadas adequadamente. A fórmula também funciona para casos em que você tem um número diferente de domínios e TLD.

    =IF(ROW()-ROW($C$1)+1>COUNTA(A:A)*COUNTA(B:B),"",INDEX(A:A,INT((ROW()-ROW($C$1))/COUNTA(B:B)+1))&"."&INDEX(B:B,MOD(ROW()-ROW($C$1),COUNTA(B:B))+1))
    • 2

  2. Tente este código, primeiro selecione o intervalo de domínios, depois as extensões e a primeira célula de onde você deseja que a saída vá. Você precisa colocar o código em um módulo e executá-lo diretamente do módulo ou vinculá-lo a um botão na planilha.

    Option Explicit

Sub MyDomains()
Dim x As Long, y As Long, c As Long
Dim d As Range, e As Range, o As Range
On Error GoTo Err_Exit
Set d = Application.InputBox(Prompt:="Select your domain range:", Type:=8)
Set e = Application.InputBox(Prompt:="Select your extension range:", Type:=8)
Set o = Application.InputBox(Prompt:="Select first cell of your output range:", Type:=8)
For x = 1 To d.Rows.Count
    For y = 1 To e.Rows.Count
        o.Offset(c, 0) = d.Cells(x, 1) & "." & e.Cells(y, 1)
        c = c + 1
    Next y
Next x
GoTo MExit
Err_Exit:
MsgBox "There was an error, ensure you select correct ranges."
MExit:
End Sub
    • 0

relate perguntas