合并单元格处理

cunfu2010

如何以“编号”列中各合并的单元格为关键字，在左边的“工组”列中填充内容，效果见附件G列

lsc900707

看不懂编号与工组之间的逻辑关系。

cunfu2010

lsc900707 发表于 2018-6-10 10:57
看不懂编号与工组之间的逻辑关系。

逻辑关系有点乱，唯一可用的关系就是：合并单元格对应左偏移一列，如编号1对应的是B2、B3……编号5对应的是B8、B9、B10、B11……
有个思路：是先确定合并单元格的位置，再找到左偏移一列共对应多少行（即未合并单元格），然后查找到值并完成填充。
我现在只能确定合并单元格位置，后面的写不下去了，求助。

cunfu2010

求教各位路过的大侠，如何解决

一把小刀闯天下

Option Explicit

Sub test()
  Dim i, j, k, arr, t
  arr = Range("b2:c" & Cells(Rows.Count, "a").End(xlUp).Row + 1)
  arr(UBound(arr, 1), 2) = "lastflag"
  For i = 1 To UBound(arr, 1) - 1
    For j = i To UBound(arr, 1) - 1
      If Len(arr(j + 1, 2)) > 0 Then
        t = vbNullString
        For k = i To j
          If Len(arr(k, 1)) > 0 Then t = arr(k, 1): Exit For
        Next
        For k = i To j: arr(k, 1) = t: Next
        i = j: Exit For
      End If
  Next j, i
  [i2].Resize(UBound(arr, 1) - 1) = arr '输出位置自己修改，这里作比较用
End Sub

cunfu2010

一把小刀闯天下 发表于 2018-6-10 11:59
Option Explicit

Sub test()

非常感谢！

cunfu2010

一把小刀闯天下 发表于 2018-6-10 11:59
Option Explicit

Sub test()

这是我想代码，但执行过程中存在问题，自己不知道怎么解决，请帮忙指点：
思路：是先确定合并单元格的位置，再找到左偏移一列共对应多少行（即未合并单元格），然后查找到值并完成填充。
Sub test()
    Dim Rng As Range
    For Each Rng In Sheet1.Range("C:C")
        If Rng.MergeCells Then
            Rng.Offset(0, -1).Resize(Rng.MergeArea.Rows.Count, 1) = Rng.Offset(0, -1).Resize(Rng.MergeArea.Rows.Count, 1).SpecialCells(xlCellTypeConstants)
        End If
    Next
End Sub

cunfu2010

lsc900707 发表于 2018-6-10 10:57
看不懂编号与工组之间的逻辑关系。

这是我想代码，但执行过程中存在问题，自己不知道怎么解决，请帮忙指点：
思路：是先确定合并单元格的位置，再找到左偏移一列共对应多少行（即未合并单元格），然后查找到值并完成填充。
Sub test()
    Dim Rng As Range
    For Each Rng In Sheet1.Range("C:C")
        If Rng.MergeCells Then
            Rng.Offset(0, -1).Resize(Rng.MergeArea.Rows.Count, 1) = Rng.Offset(0, -1).Resize(Rng.MergeArea.Rows.Count, 1).SpecialCells(xlCellTypeConstants)
        End If
    Next
End Sub

cunfu2010

一把小刀闯天下 发表于 2018-6-10 11:59
Option Explicit

Sub test()

arr(UBound(arr, 1), 2) = "lastflag"　
这句话什么意见？

一把小刀闯天下

cunfu2010 发表于 2018-6-10 12:43
arr(UBound(arr, 1), 2) = "lastflag"　
这句话什么意见？

可以不写，但代码会多出4行左右，这里标志数组条件列最后不为空（因为用row+1取数组的，而合并单元格又是用空与非空来判断的，比较特殊所以给了一个标志位）。