我需要一个excel的vba逻辑是当单元格G中包含了单元格F的数据则将他们相同部分删除

以下是一个简单的VBA代码，可以实现您所需的逻辑：

Sub RemoveDuplicate() Dim lastRow As Long, i As Long lastRow = Cells(Rows.Count, "F").End(xlUp).Row '获取最后一行 For i = lastRow To 2 Step -1 '从最后一行往上循环 If InStr(Cells(i, "G").Value, Cells(i, "F").Value) > 0 Then '如果G单元格包含F单元格的内容 Cells(i, "G").Value = Replace(Cells(i, "G").Value, Cells(i, "F").Value, "") '将相同部分删除 End If Next i End Sub

请将此代码复制到Excel VBA编辑器中，然后运行它。它将遍历单元格F中的所有行，检查单元格G是否包含单元格F的内容。如果是，则删除相同部分。请注意，此代码仅删除第一个匹配项，如果有多个匹配项，则需要进一步修改。