Изменить диапазон в кодировании

Question

У меня есть кодирование, где выбран диапазон D4: D8, но я хочу получить диапазон D4: I4 вместо D4: D8.

Я пробовал следующий код

Dim wsSou As Worksheet, wsDes As Worksheet

wsDes.Range(wsDes.Cells(Target.Row - 4, 4), wsDes.Cells(Target.Row, 
4)).Value = wsSou.Range(wsSou.Cells(Target.Row - 4, 4), 
wsSou.Cells(Target.Row, 4)).Value

вышекод соответствует диапазону D4: D8, в то время как я хочу получить диапазон D4: I4.

спасибо.

Answer 1

Для функции cells первый параметр - это строка, а второй - столбец, поэтому оставьте первую часть такой же (та же строка) и замените вторую (изменив столбец D-> I):

Dim wsSou As Worksheet, wsDes As Worksheet

wsDes.Range(wsDes.Cells(Target.Row - 4, 4), wsDes.Cells(Target.Row - 4, 9)).Value = _
wsSou.Range(wsSou.Cells(Target.Row - 4, 4), wsSou.Cells(Target.Row - 4, 9)).Value