Решение автоматизации добавления новых рынков

Question

Я пытаюсь автоматизировать добавление новых рынков в электронную таблицу с использованием VBA.

В ячейке E6: J6 У меня 6 стран. В E7: J7 у меня есть соответствующая валюта. Я хочу, чтобы пользователь сделать следующее:

1. Введите новый рынок в H3 и ее валюты в I3
2. Выполнить макрос и новый рынок и валюта появится в K6 и K7

Этот часть I может работать, однако, когда пользователь вводит дополнительный рынок в H3 и I3, если в K6 и K7 есть строка, тогда он будет заполнять L6 и L7 новой информацией и так далее.

Любые идеи?

Answer 1

Это сложно, не видя образец данных, но похоже, что вы упорядочиваете свои данные против регулярного потока данных слева направо.

Из вашего описания кажется, что ваши данные выглядят следующим образом:

Рассмотрит перестановка данных в виде таблицы, где первый столбец имеет страну и второй столбец имеет валюту. Выберите ячейку в этой новой компоновке и нажмите «Вставить ленту»> «Таблица». Теперь легко добавить новые страны. Просто нажмите на следующую пустую ячейку и начать вводить

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