VBA调整复制的数据

Question

我有两张表，其中插入数据。在sheet1中，我在column1和按钮中有数据。

如果单击该按钮，数据将转移到第1行中的sheet2。之后，用户可以在column1中添加标题并将“x”设置为表格，以将标题排序为row1中的标题。

该部分的代码不是很难，工作得非常好。

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用户可以在sheet1中输入他/她想要的行数，并且应该通过单击按钮进行更新。您是否知道如何实现这一点？

谢谢！

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