一、获取单元格的备注 Private SubCommandButton1_Click() Dim strGotIt As String strGotIt = WorksheetFunction.Clean(Range("A1").Comment.Text) MsgBox strGotIt End Sub Range.Comment.Text用于得到单元格的备注文本,如果当前单元格没有添加备注,则会引发异常。注意代码中使用了WorksheetFunction对象,该对象是Excel的系统对象,它提供了很多系统函数,这里用到的Clean函数用于清楚...[ 查看全文 ]
借助分类汇总功能可过渡实现对不规则区域进行合并单元格的批量操作,如下图中将 A 列转成 D 列,如果除了将单元格合并以外,还要合并内容,如下图中的将B列转换成 E 列,此法就行不通了。 一个比较见到你的方法就是借助公式生成如下图 DE 两列的结果,之后再用《不规则区域合并单元格的批量操作》中描术的方法处理,可以达到目的: E2 单元格里的公式是: =PHONETIC(OFFSET(B$1,MATCH(D2,A$2:A$10,)...[ 查看全文 ]
一、通过FileExists判断文件是否存在 Dim MyFile As Object Set MyFile = CreateObject("Scripting.FileSystemObject") If MyFile.FileExists("E:dzwebsPiclogo.gif" ) = True Then MsgBox "文件存在" Else MsgBox "文件不存在" End If 以上代码在VBA环境下使用。或者将其制作成为宏也可以。"E:dzwebsPiclogo.gif"为文件路径及文件名称,可自行修...[ 查看全文 ]