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

Question

我正在尝试使用VBA自动为电子表格添加新市场。

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

1. 进入H3及其货币的新市场进入I3
2. 运行宏，新市场和货币出现在K6和K7
中

这部分我可以解决 - 但是，当用户进入H3和I3的额外市场时，如果K6和K7中有一个字符串，那么它将使用新信息填充L6和L7，依此类推。

有什么想法吗？

Answer 1

如果没有看到数据样本，这很难，但看起来您正在根据从左上角到右下角的常规数据流来安排数据。

根据您的描述，您的数据似乎如下：

考虑在表中重新排列数据，其中第一列具有国家/地区，第二列具有货币。选择新排列中的单元格，然后单击插入功能区＆gt;表。现在添加新国家已经很容易了。只需点击下一个空单元格，然后开始输入

Answer 2

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