Astuces Excel
  1. Astuces Excel
  3. Trouver un text dans une colonne – Déplacement d'autres numbers à côté du text trouvé
Intereting Posts
Erreur de conformité: fonction ou variable prévue (en utilisant .Range ()) AWS + CakePhp – Spreadsheet_Excel_Reader: l'import Excel avec des valeurs négatives a enregistré une certaine valeur de l'ordure dans mysql Comment saisir des données dans certaines cellules dans la feuille Excel en utilisant un formulaire VBA? Question Excel: J'ai besoin d'une formule de date et d'heure pour convertir les fuseaux horaires Utilisation de Google API pour vérifier la database Erreur VBA Excel lors de la création de MS Project Pourquoi mon Crosstab est-il coupé dans Excel? Filtre Excel où les colonnes sont différentes Essayer de replace une valeur dans une list sheet.row que j'ai créée à partir de xlrd Comment empêcher Excel d'éliminer les zéros après la virgule? Supprimer les lignes en fonction de la string d'ID semi-unique En utilisant la requête WHERE pour un champ datetime avec pyodbc et Excel. Concaténer les permutations entre deux colonnes Comment lire le 09/09/2017 exactement à partir de xls en utilisant php? L'export Excel ne montre pas correctement les caractères persans

Trouver un text dans une colonne – Déplacement d'autres numbers à côté du text trouvé

Donc, comme le titre l'indique, j'essaie de searchr Col C et si le text / le numéro est trouvé, déplacer le text d'une autre cellule vers Col D

Donc, pour le mettre plus simplement

EG: Il y a du text dans C10 – Je souhaite copyr le text de I8 vers D10 (les nouveldatatables sont toujours deux Rows up et Col I)

J'ai joué avec ce code VBA 

Dim find As Ssortingng Dim findcell As Range FindSsortingng = "*" 'Not sure how to find anything - But if I put a ssortingng that actually is in the sheet then it moves the example same one to Col D For Each findcell In Range(ActiveSheet.Range("C1"), ActiveSheet.Range("C250").End(xlUp)).Cells If InStr(findcell, FindSsortingng) > 0 Then findcell.Offset(, 1) = FindSsortingng Next findcell

Toute aide / conseil serait grandement apprécié

Essaye ça: 

 Dim findcell As Range For Each findcell In Range(ActiveSheet.Range("C3"), ActiveSheet.Range("C250").End(xlUp)).Cells If Len(findcell) > 0 Then findcell.Offset(0, 1) = findcell.Offset(-2, 6) Next findcell

Mais bien sûr, cela ne fonctionnera qu'à partir de la ligne 3 et plus loin, car vous dites que les nouveldatatables sont toujours deux lignes.