重複單元在其他一些細胞

Question

我有一個EXCELL填充這些數據吧：

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

我想在一個單元格名稱在它下面的每一行這樣的面前：

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

有沒有辦法做到這一點？

Answer 1

這裏有一種方法可以解決這個問題;它做出了一些假設，如果它們證明是錯誤的，你可能不得不解決。

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 = ""