判断是否为合并单元格，向其它单元格输入公式

37667

序号有些是合并单元格，有些不是。怎么判断如果是合并单元格，即自动在D列输入黄色中的公式（公式有4条），如果不是合并单元格，即在D列输入绿色公式。
（所有合并的单元格都是4列合并的，而且，4列的公式都不一样）

shi353

Sub tt1()
r = [A65536].End(3).Row
If Cells(r, "a").MergeCells Then
   rr = r + Cells(r, "a").MergeArea.Rows.Count - 1
Else
   rr = r
End If
'---------------------------------
Set A = Range("A4:A" & rr)
For i = 1 To A.Cells.Count
    With A.Cells(i)
        If .MergeCells And Len(.Value) > 0 Then
           X = .MergeArea.Address
           Set S = Range(X)
           For j = 1 To S.Cells.Count
               With S.Cells(j)
                    Select Case j
                         Case 1
                            .Offset(, 3).FormulaR1C1 = "=IF(MAX(RC[5]:RC[6])-MIN(RC[5]:RC[6])>6,MAX(RC[5]:RC[6]),MIN(RC[5]:RC[6]))"
                         Case 2
                            .Offset(, 3).FormulaR1C1 = "=IF(MAX(R[-1]C[6]:R[-1]C[7])-MIN(R[-1]C[6]:R[-1]C[7])>6,MAX(R[-1]C[6]:R[-1]C[7]),MIN(R[-1]C[6]:R[-1]C[7]))"
                         Case 3
                            .Offset(, 3).FormulaR1C1 = "=IF(MAX(R[-2]C[7]:R[-2]C[8])-MIN(R[-2]C[7]:R[-2]C[8])>6,MAX(R[-2]C[7]:R[-2]C[8]),MIN(R[-2]C[7]:R[-2]C[8]))"
                         Case 4
                            .Offset(, 3).FormulaR1C1 = "=IF(MAX(R[-3]C[8],R[-3]C[5])-MIN(R[-3]C[8],R[-3]C[5])>6,MAX(R[-3]C[8],R[-3]C[5]),MIN(R[-3]C[8],R[-3]C[5]))"
                    End Select
               End With
           Next
           i = i + 3
        Else
            .Offset(, 3).FormulaR1C1 = "=Min(RC[5]:RC[8])"
        End If
    End With
Next
End Sub

liulang0808

欢迎新朋友。
本版块为VBA版块，如果咨询公式，去函数板块

如果需要vba解决，建议上传附件并结合附件描述需求

37667

以上传附件，求大神帮忙看看。

shi353

提問者應該是想用vba判斷是否合併套入公式入表吧
也就是保留公式在表上!
其實工作上也常常這樣用到

37667

shi353 发表于 2019-9-30 17:02
提問者應該是想用vba判斷是否合併套入公式入表吧
也就是保留公式在表上!
其實工作上也常常這樣用到

是的，用VBA判断。

37667

shi353 发表于 2019-10-1 06:31
Sub tt1()
r = [A65536].End(3).Row
If Cells(r, "a").MergeCells Then

谢谢大神。实现了我想要的功能