Сброс таблицы с сохранением выходных значений

Question

У меня есть таблица, где ячейки С1-С3 (например) запрограммированы с помощью…

• С1: =10-A1
• С2: =10-A2
• C3: =10-A3

… соответственно.

В течение недели я буду менять значения A1, A2 и A3, но в конце недели я хочу очистить столбец A и столбец C с последними выходными значениями недели, например, если последнее значение, которое я поместил в A1, было 3, ячейка C1 покажет мне 7, на следующей неделе ячейка A1 будет очищена, а ячейка C1 все еще будет иметь программирование, но начиная со значения 7, а не 10.

Answer 1

Вам нужно изменить ваши данные на что-то вроде следующего:

И затем в конце недели запустите код для запуска следующегоweek:
Код копирует текущую неделю в значения последней недели и очищает текущую неделю.

Option Explicit

Public Sub StartNextWeek()
    With ThisWorkbook.Worksheets("week")
        'copy current to last week
        .Range("B2:B4").Value = .Range("A2:A4").Value

        'clear current week
        .Range("A2:A4").Clear
    End With
End Sub

Поэтому на следующей неделе вы начнете с