Vba 解决新增市场的自动化问题

我正在尝试使用VBA将新市场添加到电子表格中

在E6:J6单元中，我有6个国家。在E7:J7中，我有各自的货币。我希望用户执行以下操作：

H3进入新市场，其货币进入I3 运行宏，新的市场和货币出现在K6和K7中 这一部分我可以解决-但是，当用户进入H3和I3的另一个市场时，如果K6和K7中有一个字符串，那么它将用新信息填充L6和L7，依此类推

---

有什么想法吗？

如果看不到数据样本，这很难，但看起来您是在按照从左上到右下的规则数据流排列数据

根据您的描述，您的数据如下所示：

---

考虑在表中重新安排数据，其中第一列为国家，第二列为货币。选择新排列中的单元，然后单击“插入功能区>表格”。现在增加新的国家非常容易。只需单击下一个空单元格并开始键入

，虽然我知道您来自何处，但我试图解决的问题是-VBA复制到单元格如果为空，如果为空，则复制到单元格到右侧的下一个单元格。这应该可以按需工作！！当用户输入H3中的国家和I3中的货币时，应使用新值更新国家和货币列

Sub Test()
'This Macro will Update Rows 6 and Rows 7 from the user input for country in Range H3 and currency in Range I3        
    Dim wb As Workbook
    Dim ws As Worksheet
    Set wb = ThisWorkbook
    Set ws1 = wb.Sheets("Sheet1") 'Rename sheet1 to your sheet name

    LastCol1 = ws1.Cells(6, ws1.Columns.Count).End(xlToLeft).Column
    LastCol2 = ws1.Cells(7, ws1.Columns.Count).End(xlToLeft).Column

    Cells(6, LastCol1 + 1) = ws1.Cells(3,8)
    Cells(7, LastCol2 + 1) = ws1.Cells(3,9)

End Sub