VBA调整复制的数据

Question

我有两张纸可以插入数据。在sheet1中，我在column1中有数据，还有一个按钮。

如果单击按钮，数据将被传输到row1中的sheet2。然后，用户可以在列1中添加标题，并在表格中设置“ x”以将标题对行1中的标题进行排序。

该部分的代码不是很困难，并且可以很好地工作。

Private Sub CommandButton1_Click()
    Zeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

    For i = 2 To Zeile
        Sheets("2").Cells(1, i) = Sheets("1").Cells(i, 1)
    Next i

End Sub

我现在的问题是如何保护输入的数据？如果有人输入Sheet1，例如在B和C之间输入一个G，然后再次按下该按钮，它将不会弄乱Sheet2中的“ x”。 Change in Sheet1 因此，G列必须保持为空，但C，D，E，F列仍应具有“ x”。 （在下图中，插入的列以绿色突出显示。 Change in Sheet2 after clicking the button in Sheet1 用户可以在工作表1中输入任意行，并且应通过单击按钮来更新该行。你有一个想法，我怎么能意识到这一点？

谢谢！

Answer 1

如果我对您的理解正确，则可以使用If语句：

For i = 2 To Zeile
    If Sheets("2").Cells(1, i) = "" Then
         Sheets("2").Cells(1, i) = Sheets("1").Cells(i, 1)
    End If
Next i