遍历一个工作表中的每一行并复制到另一个工作表的命名范围

作者: 夏花
发布时间: 2025-04-22 06:04:03 (5月前)
转自：

2 条回复

0#
回复此人
早岁那知世事艰 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 我想要做的就是从每个单元格中获取值 <code> leanrange </code> 和相邻的列，并将其插入到宏工作簿中相应标题下的表中。 </p> <P> 我认为这里有两个问题： </p> <OL> <LI> for循环中的语法是相反的 </LI> <LI> 你无效地抵消了 </LI> </醇> <P> 这是我建议的：因为你在每个循环中使用a，所以使用 <code> cell </code> 对象循环遍历范围内的所有单元格而不是使用偏移量。然后，您需要偏移宏工作簿中的行，否则您只是一遍又一遍地粘贴到同一行。这就是你的标题被覆盖的原因。您可以使用第二个循环来进行偏移 <code> cell </code> 这样你就可以循环遍历每一列 <code> leanrange </code> 。最后，因为看起来您的范围“Enum”，“ds”，“dc”等都是相邻的列，所以我通过使用j来简化宏也可以在宏工作簿中偏移列。 </p> <pre> <code> Dim i As Integer Dim j As Integer Dim cell As Range i = 1 For Each cell In leanrange If leanrange.Range("A2") <> "E1002" Then For j = 0 To 3 wsmacro.Range("Enum").Offset(i, j) = cell.Offset(0, j).Value Next j i = i + 1 End If Next cell </code> </pre> </DIV>

编辑

登录后才能参与评论