怎么简化这段代码?

125675117

请问这段代码怎么简化？
因为后面+的数字可能加到100去了
SHX.Cells(I + 5, ICOL + 1) = SH.UsedRange.Find(SHX.Cells(2, ICOL)).Offset(1, 2).Value
SHX.Cells(I + 5, ICOL + 2) = SH.UsedRange.Find(SHX.Cells(2, ICOL)).Offset(1, 3).Value
SHX.Cells(I + 5, ICOL + 3) = SH.UsedRange.Find(SHX.Cells(2, ICOL)).Offset(1, 4).Value
SHX.Cells(I + 5, ICOL + 4) = SH.UsedRange.Find(SHX.Cells(2, ICOL)).Offset(1, 5).Value
SHX.Cells(I + 5, ICOL + 5) = SH.UsedRange.Find(SHX.Cells(2, ICOL)).Offset(1, 6).Value
SHX.Cells(I + 5, ICOL + 6) = SH.UsedRange.Find(SHX.Cells(2, ICOL)).Offset(1, 7).Value
SHX.Cells(I + 5, ICOL + 7) = SH.UsedRange.Find(SHX.Cells(2, ICOL)).Offset(1, 8).Value
SHX.Cells(I + 5, ICOL + 8) = SH.UsedRange.Find(SHX.Cells(2, ICOL)).Offset(1, 9).Value
SHX.Cells(I + 5, ICOL + 9) = SH.UsedRange.Find(SHX.Cells(2, ICOL)).Offset(1, 10).Value

shiruiqiang

for y=1 to 100
cells (xx,y)=.offest(1,y+1)

yynrzwh

for i=1 to 100
SHX.Cells(I + 5, ICOL + i) = SH.UsedRange.Find(SHX.Cells(2, ICOL)).Offset(1, i+1).Value
next i

tanglf188

For k=1 to 100
    SHX.Cells(I + 5, ICOL + k) = SH.UsedRange.Find(SHX.Cells(2, ICOL)).Offset(1, k+1).Value
Next

fzxba

dim ar
with SHX
ar=SH.UsedRange.Find(.Cells(2, ICOL)).Offset(1, 2).resize(1,100).value
.Cells(I + 5, ICOL + 1).resize(1,ubound(ar,2))=ar
end with

tanglf188

yynrzwh 发表于 2023-2-6 15:29
for i=1 to 100
SHX.Cells(I + 5, ICOL + i) = SH.UsedRange.Find(SHX.Cells(2, ICOL)).Offset(1, i+1).Va ...

里面有I变量喽

yynrzwh

多谢提醒，没注意

39660519

For A = 1 To 100
    SHX.Cells(I + 5, ICOL + A) = SH.UsedRange.Find(SHX.Cells(2, ICOL)).Offset(1, A + 1).Value
Next A
你想要多少就把100改了

125675117

39660519 发表于 2023-2-6 17:05
For A = 1 To 100
    SHX.Cells(I + 5, ICOL + A) = SH.UsedRange.Find(SHX.Cells(2, ICOL)).Offset(1, A ...

非常感谢，这正是我想学习的，已经解决了问题。

grf1973

最好把  SH.UsedRange.Find(SHX.Cells(2, ICOL))  移到循环外面去。