Usando dados da Folha1,
crieumanovafolhacomoFolha2
Paraalinha1nainserçãodacélulaA1
=Sheet1!A1&CHAR(10)&Sheet1!A2&CHAR(10)&Sheet1!A3
UsarCHAR(10)éoequivalenteaPressionarAlt+Enter
Parainseriralinha2dacélulaA2
=INDIRECT("Sheet1!A"&(INT(ROW(A1))*3+1)) & CHAR(10) & INDIRECT("Sheet1!A"&(INT(ROW(A1))*3+2)) & CHAR(10) & INDIRECT("Sheet1!A"&(INT(ROW(Sheet1!A1))*3+3))
onde INT (ROW (A1)) * 3 + 1 retorna o inteiro do número da linha de A1 multiplicado pelo 3 para dar a você a cada três linhas com +1 para fornecer o número da linha inicial. como linha 4, 7, 10, 13 etc. e função indireta permite que você crie sua referência de célula de texto e fórmula.
Lembre-sedeformatarsuascélulasnacolunaAcomo"Quebrar texto".
Selecione o tipo de célula B1 =Sheet1!B1
e use a alça para arrastar para preencher a linha 1
Selecione a inserção da célula B2
=INDIRECT("Sheet1!B"&(INT(ROW(Sheet1!B1))*3+1))
e use o identificador para arrastar para preencher a linha 2, agora você precisará editar as colunas C D, pois a referência da Coluna Indireta não estará correta, pois a referência é o texto. Altere "Folha1! B" & ... para "Folha1! C" & ... para a coluna C e "Folha1! D" & ... para a coluna D.
Selecione A2 a D2 e arraste para preencher o número necessário de linhas