Domanda:
Buonasera. Congratulazioni per la vostra pagina WEB.
Premettendo di non essere molto esperto di programmazione vi presento il mio problema.
Ho un documento in Excel 2003 con le celle che contengono solo testo composto da parole in formato normale e da altre in corsivo.
Ho la necessità di estrarre e copiare in altre celle solo le parole in corsivo.
Risposta:
La proprietà della cella che identifica il tipo di carattere è “Font”.
L’attirbuto della proprietà Font che identifica il carattere corsivo è “Italic”
Detto ciò, con un ciclo analizzo tutte le celle contenute nella tabella d’esempio
e se il carattere è “corsivo” copio il valore della cella in un’alta colonna.
Last_Row = ActiveSheet.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row Last_Col = 3
For i = 2 To Last_Row
For y = 1 To Last_Col
If Cells(i, y).Font.Italic = True Then
Cells(i, Last_Col + 2) = Cells(i, y)
End If
Next y
Next i
A voi il file:
APRI
Riccardo Vincenti
The following two tabs change content below.
Riccardo Vincenti
Ultimi post di Riccardo Vincenti (vedi tutti)
- 073. Duplicare righe excel modificando il contenuto - 6 Ottobre 2017
- 072. Estrazione numeri casuali - 6 Ottobre 2017
- 071. Estrazione casuale valori da un elenco - 5 Ottobre 2017
- 070. Contare dati univoci senza Pivot - 21 Settembre 2017
- 069. Aggiungere intervalli ad una data: Date Add in Excel - 21 Settembre 2017
This work by Riccardo Vincenti is licensed under a Creative Commons Attribution-NonCommercial-ShareAlike 4.0 International