Excel 用求和公式求一个单元格

我使用“.HasFormula”来识别范围内的细胞。我想找到有“求和”公式的单元格，并保留这些公式，但保留所有其他公式

'If it has Formula
If wb_DST.Sheets(sWs_DST).Range(GetColumnLetter(iColumn) & "13").HasFormula Then

'If it is a Sum Formula                               
If wb_DST.Sheets(sWs_DST).Range(GetColumnLetter(iColumn) & "13").HasFormula.Find("=SUM()", xlFormulas) Then
    wb_DST.Sheets(sWs_DST).Range(GetColumnLetter(iColumn) & "13:" & GetColumnLetter(iColumn) & wb_DST.Sheets(sWs_DST).UsedRange.Rows.Count).ClearContents    
Else 
'Nothing

End If

只是一个想法， 你能把“.HasFormula”范围内的所有单元格循环一下吗 然后比较“.formula”以查看它是否为和， 仅创建这些单元格的集合

---

很抱歉，我会把cod，但我不完全确定你是想做什么还没有，你可以发布你的代码片段，我会更新我的答案更好地为你。祝您好运：）

请显示您正在使用的代码。刚才在下面的评论中您到目前为止做了哪些工作？是否要检查单元格在整个公式中是否包含SUM，还是从SUM开始？如果单元格以=SUM（）开始，请将代码放在原始帖子中，使用，而不是放在注释中。如果wb_DST.Sheets（sWs_DST）.Range（GetColumnLetter（iColumn）和“13”）。HasFormula然后如果wb_DST.Sheets（sWs_DST）.Range（GetColumnLetter（iColumn）和“13”）.HasFormula.Find（“=SUM（）”，xlFormulas），然后wb_DST.Sheets（sWs_DST）.Range（GetColumnLetter（iColumn）和“13:”&GetColumnLetter（iColumn）和wb_DST.Sheets（sWs_DST）.UsedRange.Rows.Count）.ClearContents