2014-10-16 2 views
0

У меня есть таблица данных и вы хотите создать макрос для смещения значений в таблице по значению x. Мне было интересно, есть ли способ быстро добавить/вычесть значение x для каждого клетка. Я знаю, что могу сделать макрос для добавления/вычитания x ячейки по ячейке, но я думаю, что это может занять много времени. Буду признателен за вашу помощь!Смещение значений таблицы с помощью vba

+0

Общая политика здесь заключается в том, чтобы продемонстрировать некоторые усилия, сделанные от вашего имени, иначе вы столкнетесь с тем, кто просит людей сделать вашу работу за вас. Я предлагаю вам попробовать записать макрос, и вы познакомитесь с тем, как быстро и легко начать работу. Сообщество поможет вам в завершении вашей конкретной цели, но вы должны выполнить эти первые шаги самостоятельно. В этом случае вы найдете сообщество более полезным. –

ответ

0

Да, используйте специальную пасту.

Sub test() 
    With Sheets("Sheet1") 
     Dim x As Long: x = 1 
     .Range("B1") = x: .Range("B1").Copy '~~> any anchor cell 
     .Range("A1:A10").PasteSpecial , xlPasteSpecialOperationAdd 
     .Range("B1").ClearContents 
    End With 
    Application.CutCopyMode = False 
End Sub 

Так выше, предполагает, что A1: A10 содержит таблицу. НТН.

Смежные вопросы