编码范围

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