Excel, цикл через столбцы и строки

Question

У меня есть таблица excel, которая вычисляет, сколько материалов нужно заказывать за каждую работу, которую мы делаем.

Что я хочу сделать, так это создать кнопку, которая скопирует существующую таблицу на страницу 2 моей книги excel. Стол имеет ширину в два столбца. Поэтому я бы хотел нажать кнопку, она скопирует таблицу на A и B на странице 1 на стр. 2 A и B. После этого я хочу, чтобы Excel запоминал A и B, и в следующий раз я нажимаю кнопку , он идет в столбцах C и D, затем E и F и т. д. (всегда на стр. 2).

, чтобы объяснить, почему я хотел бы это, мне нужно заказать 1000 кв. Футов материалов, но в разделах. всего 250 кв. футов материалов за один раз. Итак, я хочу, чтобы заполнить, сколько им заказа, нажмите кнопку, и это сохраняет информацию о том, что было заказано на странице 2. Таким образом, его легко вернуться и посмотреть, что было сделано, какая дата, сколько заказано, что оставляется на заказ и т. д.

Я знаю, что с числами это было бы просто, просто увеличивая i на два при каждом нажатии кнопки, но я не знаю, как это сделать для столбцов excel (букв).

Есть ли какая-то легкая команда, которую я просто не могу найти в Интернете, чтобы заниматься этим?

Благодарим за помощь!

Answer 1

Что вы должны учиться в VBA и изменить в этом ниже код, как определить фактический диапазон таблицы на Лист1 - вместо жесткого кодирования его "A1:B10"

UPDATE Не знаю, почему предыдущая версия не сработала для вас, но я обновил код ниже, чтобы сохранить следующее расположение столбца в вспомогательной ячейке, чтобы узнать, работает ли это для вас.

Option Explicit 

Sub Button1_Click() 
    Dim srcTable As Range 
    Dim dstTable As Range 
    Dim nextLoc As Range 
    Set srcTable = Sheets("Sheet1").Range("A1:B10") 
    Set nextLoc = Sheets("Sheet2").Range("A20") 

    '--- if this is your first copy, then cell A1 should be empty 
    If IsEmpty(Sheets("Sheet2").Range("A1").Value) Then 
     Set dstTable = Sheets("Sheet2").Range("A1:B10") 
     nextLoc.Value = 3       'next location is column 3 
    Else 
     '--- we're adding the next table... 
     Set dstTable = Sheets("Sheet2").Cells(1, nextLoc.Value) 
     nextLoc.Value = nextLoc.Value + 2 
    End If 
    srcTable.Copy dstTable 
End Sub