excel利用自定义函数获取多个单元格中相同的字符

摘要： 要在Excel中获取区域内各单元格字符串中的相同字符，可用下面的自定义函数。例如要在D1单元格获取A1:C1区域各单元格中相同的字符，如图：
   
 &nbs...

要在Excel中获取区域内各单元格字符串中的相同字符，可用下面的自定义函数。例如要在D1单元格获取A1:C1区域各单元格中相同的字符，如图：

    按Alt F11，打开VBA编辑器，单击菜单“插入→模块”，在代码窗口中输入自定义函数：

excel如何利用VBA批量设置图标集条件格式

在Excel2007/2010中设置图标集条件格式时，通常是同时对区域中的全部单元格进行设置的。但有时也有例外，如下图中C2:C1000区域中的各单元格的值为同行A列与B列的差值，需要在C列中设置图标集

Function GetDupChars(rRng As Range) As String
    Application.Volatile
    Dim i As Integer, j As Integer, k As Integer
    Dim Str As String
    Str = rRng.Item(1).Text
    For i = 1 To Len(Str)
      k = 0
      For j = 2 To rRng.Cells.Count
      If InStr(rRng.Item(j).Text, Mid(Str, i, 1)) Then k = k 1
      Next
      If k = j - 2 And InStr(GetDupChars, Mid(Str, i, 1)) = 0 _
          Then GetDupChars = GetDupChars & Mid(Str, i, 1)
    Next
End Function

    然后关闭VBA编辑器，在D1单元格中输入公式即可：

    =GetDupChars(A1:C1)

excel如何在工作表的页眉或页脚中显示最后修改时间

有时需要在工作表的页眉或页脚中显示最后修改的日期和时间，在Excel中可以用下面的VBA代码来实现，步骤如下：例如在页眉的中部显示工作簿最后保存时间，按Alt F11打开VBA编辑器，双击工程