合并单元格处理

cunfu2010

一把小刀闯天下 发表于 2018-6-10 12:51
可以不写，但代码会多出4行左右，这里标志数组条件列最后不为空（因为用row+1取数组的，而合并单元格又是 ...

明白了，谢谢解答。

cunfu2010

一把小刀闯天下 发表于 2018-6-10 12:51
可以不写，但代码会多出4行左右，这里标志数组条件列最后不为空（因为用row+1取数组的，而合并单元格又是 ...

我写的代码如何避开重复定位合并单元格，如编号1对应的合并单元格会循环时分别定位C2、C3，定位C2时代码正确，但定位C3时肯定不行，这种情况下如何不再定位C3。

一把小刀闯天下

加个循环：
for j=MergeArea.row to MergeArea.row+ MergeArea.Rows.Count-1
  判断左侧单元格是否为空。非空记录这个值退出，再一次循环（同这循环）写入记录的值到左侧单元格。
  当全为空时循环正常结束，此时的j=MergeArea.row+ MergeArea.Rows.Count，根据这条件决定下个循环是否继续（你这没有这情况，但写代码时要考虑进去）
next

cunfu2010

一把小刀闯天下 发表于 2018-6-10 13:10
加个循环：
for j=MergeArea.row to MergeArea.row+ MergeArea.Rows.Count-1
  判断左侧单元格是否为空。 ...

谢谢，明白了。

wllxf

1. Sub test()
   
2.     Dim i, j, k, arr, t
   
3.     Set t = CreateObject("scripting.dictionary")
   
4.     k = Cells(Rows.Count, "a").End(xlUp).Row
   
5.     arr = Range("b2:c" & k)
   
6.     For i = 1 To UBound(arr, 1)
   
7.         If arr(i, 2) = "" Then
   
8.             arr(i, 2) = arr(i - 1, 2)
   
9.         End If
   
10.         If arr(i, 1) <> "" Then
    
11.             t(arr(i, 2)) = arr(i, 1)
    
12.         End If
    
13.     Next
    
14.     For i = 2 To k
    
15.         Cells(i, 2) = t(arr(i - 1, 2))
    
16.     Next
    
17. End Sub

复制代码

cunfu2010

wllxf 发表于 2018-6-10 13:51

谢谢！多了一种方法