for 循环 死机了

永魂

Sub test()
Dim i,j As Integer
for j=1 to sheets.count
             For i = 6 To Sheets(j).Range("b6").End(xlDown).Row
         Sheets(j).Range("i" & i) = Sheets(j).Range("h2").Value
              Next
next
End Sub


我想循环每个工作表 然后让h2=b2 一直到下边界的值 不知道怎么嵌套 帮帮忙

永魂

打错了 h2=i6  填充i？一直到b2下边界为止

永魂

Sub test()
Dim i As Integer
For i = 6 To Sheet10.Range("b6").End(xlDown).Row
         Sheet10.Range("i" & i) = Sheet10.Range("h2").Value
Next
End Sub 单独做一个工作表可以运行成功 就不知道怎么循环工作表

xiangbaoan

Sub test()
Dim  j As Integer
for j=1 to sheets.count
with Sheets(j)
  .Range("i6:i" & .Range("b6").End(xlDown).Row)=.Range("h2").Value
end with
next
End Sub

永魂

xiangbaoan 发表于 2020-6-10 08:39
Sub test()
Dim  j As Integer
for j=1 to sheets.count

运行这段代码时 出现了第一张表格全部i列从第六行开始全部填充
请问只用我的那段原代码 加个for next 能做出来不

xiangbaoan

永魂 发表于 2020-6-10 13:57
运行这段代码时 出现了第一张表格全部i列从第六行开始全部填充
请问只用我的那段原代码 加个for next  ...

你自己不是做出来了吗?你的会死机，我若与你做的一样，难道就不死机?

永魂

永魂 发表于 2020-6-10 13:57
运行这段代码时 出现了第一张表格全部i列从第六行开始全部填充
请问只用我的那段原代码 加个for next  ...

你的代码 其中有一张表的i列 粘贴的最后一个单元格不是b6的下边界为止

xiangbaoan

永魂 发表于 2020-6-10 14:25
你的代码 其中有一张表的i列 粘贴的最后一个单元格不是b6的下边界为止

Range("b6").End(xlDown).Row  不就是下边界的行号吗?
不是你的数据的问题，就是Excel失灵了。我是随手敲的，就此打住。

makarria

Sub test()
Dim i, j As Integer
For j = 1 To Sheets.Count
             For i = 2 To Sheets(j).Range("a65536").End(xlUp).Row - 1
         Sheets(j).Range("i" & i) = Sheets(j).Range("h2")
              Next
Next
End Sub
试试这个呢

15306675559

先收藏慢慢学习