excel
tyasdxx
这个作者很懒,什么都没留下…
展开
-
Excel判断单元格是否包含关键字
=IF(COUNTIF(B2,"*关键字*")=1,"包含","")原创 2014-12-08 15:45:33 · 18999 阅读 · 0 评论 -
Excel 提取超链接
Sub getchaolianjie()On Error Resume NextFor Each cell In Range("A1:A100") cell.Offset(0, 1) = cell.Hyperlinks(1).Address NextEnd Sub提取 A1 到 A10 单元格的超链接地址。转载 2015-03-26 17:29:06 · 2210 阅读 · 0 评论 -
JAVA POI EXCEl单元格内部分字符设置样式 HSSFRichTextString用法
public static HSSFFont font(HSSFWorkbook wb) { HSSFFont font = (HSSFFont) wb.createFont(); // font.setStrikeout(true);//删除线 font.setFontHeightInPoints((short) 9); // 字体高度 font.setFontName("宋体"); /原创 2015-05-29 16:01:48 · 3807 阅读 · 0 评论 -
Excel 单元格如果#value!不显示
函数:=IF(ISERROR(公式),"",公式)运用:=IF(ISERROR(ROUND(DATEDIF(W2,"2016/10/14","d")/365,0)),"",ROUND(DATEDIF(W2,"2016/10/14","d")/365,0))ROUND函数:第二个参数为【0】 四舍五入到个位eg:123.56转换后:124原创 2016-10-14 16:16:44 · 6988 阅读 · 0 评论 -
Excel 多个sheet中的内容合并到一个sheet中
代码:Sub 合并当前工作簿下的所有工作表()Application.ScreenUpdating = FalseFor j = 1 To Sheets.Count If Sheets(j).Name <> ActiveSheet.Name Then X = Range("A65536").End(xlUp).Row + 1 Sheets(j).UsedR转载 2016-11-24 12:04:56 · 16272 阅读 · 0 评论 -
Excel 正则表达式 VB 提取字符串
打开Excel,ALT+F11 打开VB在sheet1 右键新建模块贴入代码:Function zz(rng As Range)Dim reg As ObjectSet reg = CreateObject("VBScript.RegExp")With reg.Global = True.Pattern = "biz=(转载 2016-09-28 11:25:44 · 3773 阅读 · 0 评论