répéter une cellule dans d'autres cellules

Question

j'ai un Excell remplir ces données qu'il contient:

Name1 
1 
2 
3 
Name2 
1 
2 
3 
4 
Name3 
1 
2 
...... 

Je veux avoir des noms dans une cellule en face de chaque ligne ci-dessous comme ceci:

1   Name1 
2   Name1 
3   Name1 
1   Name2 
2   Name2 
3   Name2 
4   Name2 
1   Name3 
2   Name3 
.... 

est-il un moyen de le faire?

Answer 1

Voici une façon d'aborder ce problème. Il fait certaines hypothèses que vous devrez peut-être corriger si elles s'avèrent fausses.

Dim n As String 
Dim v As String 

Dim row As Long 
Dim col As Integer 

Dim c As Range 

Dim destRow As Long 
Dim destCol As Integer 

'Assume your data is in column A, starting in row 1 
row = 1 
col = 1 

'and that you want to drop it into columns C and D starting in row 1 
destRow = 1 
destCol = 3 

Do 
    Set c = ActiveSheet.Cells(row, col) 
    If Left(c.Value, 4) = "Name" Then 
     n = c.Value 
    ElseIf n <> "" Then 
     Cells(destRow, destCol).Value = c.Value 
     Cells(destRow, destCol + 1).Value = n 
     destRow = destRow + 1 
    End If 
    row = row + 1 
Loop Until ActiveSheet.Cells(row, col).Value = ""