如何实现条件区域内的复制单元格内容

ytthome

如题，要实现任意单元格（如18行）的下方区间内，查找单元格的值为“■”，则在其后方复制一个“■"，单元格的上方的“■”不进行复制的。

719404338

1. Sub t()
   
2. Dim i, j
   
3. For i = 19 To 29
   
4. For j = 34 To 4 Step -1
   
5. If Cells(i, j) = "■" Then
   
6.    Cells(i, j + 1) = "■"
   
7.    End If
   
8.    Next j, i
   
9. End Sub

复制代码

ytthome

719404338 发表于 2019-1-21 11:13

谢谢大神，选择的单元格不是固定的18行，如何处理呢？

ytthome

谢谢大神，问题解决了，用了一个Activecell.row

1. Dim i, j, bb
   
2. bb = ActiveCell.Row
   
3. For i = bb To 29

复制代码