копия строки, если ID пустой с VBA

Question

Привет Я хочу, чтобы данные в базе данных ниже

ID Name Card No 
1 A  3 
      2 
2 B  1 
3 C  1 
      2 

быть как

ID Name Card No 
1 A  3 
1 A  2 
2 B  1 
3 C  1 
3 C  2 

Использование Excel макросы .. пожалуйста, помогите спасибо: D

Обновление, мои данные похожи на этот файл и только отладчик A & B столбец

Col->A B  C   D 
Row 
7 ID Name Address Card No 
8 1 A    3 
9       2 
10 2 B  X road 1 
11 3 C  Y road 1 
12       2 

Как это исправить? пожалуйста, помогите :(и это началось в строке 7

Answer 1

Простой, но ниже кода будет делать работу:

. Примечание: Ниже код принимает ваш «Колонка C» не имеет никаких пустых ячеек Если вы, пожалуйста, добавьте комментарии, так что я могу обновить

Sub copyPaste() 
Dim lastRow As Long 

lastRow = Range("C" & Rows.Count).End(xlUp).Row '<- Column that there is no empty cells 

For i = 1 To lastRow 
    If Range("A" & i).Value = "" Then 
     Range("A" & i).Value = Range("A" & i).Offset(-1, 0).Value 
    End If 
    If Range("B" & i).Value = "" Then 
     Range("B" & i).Value = Range("B" & i).Offset(-1, 0).Value 
    End If 
Next 
End Sub 

UPDATE:.. Ниже код будет делать ту же работу для всех столбцов в книге код предполагает, что в первой строке листа у вас есть заголовки и использует эту информацию вычислить, сколько итераций делать для столбцов.

Sub copyPaste() 
Dim lastRow As Long 
Dim lastCol As Long 

lastRow = Range("C" & Rows.Count).End(xlUp).Row '<- Column that there is no empty cells 
lastCol = Cells(1, Columns.Count).End(xlToLeft).Column 

    For j = 1 To lastCol 
     For i = 1 To lastRow 
      If Cells(i, j).Value = "" Then 
       Cells(i, j).Value = Cells(i, j).Offset(-1, 0).Value 
      End If 
     Next i 
    Next j 
End Sub