[已解决]vba中合并的单元格如何选中

Quincy_xiao

我行我速2008 发表于 2022-8-9 09:38
认为行就选为最佳答案
Dim R%, I%, Str$, K%
Sub 依次获取D列合并单元格的值()

老师您好，如图，我要把C列的内容和F列一一对应存到另一个表中要怎么办呢？

初始

要达到的效果

我行我速2008

Quincy_xiao 发表于 2022-8-9 13:47
老师您好，如图，我要把C列的内容和F列一一对应存到另一个表中要怎么办呢？

方法一：直接复制
方法二：用数组把数据拷过去，然后合并相同单元格。

我行我速2008

自己修改下，把Selection修改为要合并的单元格区域

Sub 合并内容相同的连续单元格()
    Dim i As Integer
    Dim Rng As Range
    On Error Resume Next
    Application.DisplayAlerts = False
    With Selection
      For i = .Cells.Rows.count To 1 Step -1
        If .Cells(i - 1, 1).Value = .Cells(i, 1).Value Then
            Set Rng = Union(.Cells(i - 1, 1), .Cells(i, 1))
            Rng.Merge
            Set Rng = Nothing
        End If
      Next
    End With
    Application.DisplayAlerts = True
End Sub

Quincy_xiao

我行我速2008 发表于 2022-8-9 14:03
自己修改下，把Selection修改为要合并的单元格区域

Sub 合并内容相同的连续单元格()

合并的这里我没有什么问题，但是如何能实现图二这样的数据转移，我想过用字典，数组，但是我判断不了何时分割到下一个project

Quincy_xiao

我行我速2008 发表于 2022-8-9 14:03
自己修改下，把Selection修改为要合并的单元格区域

Sub 合并内容相同的连续单元格()

老师，想不出来了，求帮助