-
Excel批量翻译中英文公式（非WPS版）
举个小栗子。 输入以下公式，可以将A1单元格的值进行英汉或汉英互译。 公式只适用：微软版本（Microsoft），wps翻译不出来。 =FILTERXML(WEBSERVICE("https://fanyi.youdao.com/translate?&i="&A1&"&doctype=xml"),"https://t…...
- 0
- 24
- 8k
-
Excel提取指定文件夹内的所有文件名
Excel提取指定文件夹内的所有文件名。 Sub 提取指定文件夹内的所有文件名() '含所有子文件夹内的文件 Dim Fso As Object, arrf$(), mf& Set Fso = CreateObject("Scripting.FileSystemObject") Call GetFiles(CreateObject("Shell.Ap…...- 0
- 0
- 1.6k
-
Excel同工作簿多个工作表合并到一个工作表
同一个excel多个工作表合并，一个个手动复制麻烦，也怕出错。利用宏来解决。 打开一个Excel文档，显示有三个Sheet 三个Sheet分别的内容 点击Sheet栏后面的【+】 创建一个叫“合并”的Sheet 右键“合并”Sheet选择【查看代码】 打开VBA编辑窗口 输入以下代码： Sub 合并当前工作簿下的所有工作表() Application.ScreenUpdating = False …...- 0
- 0
- 2.2k
-
使用VBA代码将excel表格批量转换格式csv
使用VBA代码，将excel表格Xlsx、xls格式批量转换为csv格式。 Sub SaveToCSVs() Dim fDir As String Dim wB As Workbook Dim wS As Worksheet Dim fPath As String Dim sPath As String fPath = "C:\Users\qiany\Desktop\文件\" …...- 0
- 0
- 1k
-
Excel批量检测本地图片超链接是否有效
Excel批量检测本地图片超链接是否有效，主要用于表格发布产品，生成图片链接，有相关需求的朋友可以试试。 本地上千张图片提取到Excel中生成链接，并检测图片是否存在。 A1:A6代表范围，自行修改。 Sub t() Dim rg As Range, rng As Range, arr, x& Set rng = Range("A1:A6") '单元格范围 p…...- 0
- 0
- 3.5k
-
Excel表格横向分列公式
Excel表格横向分列公式 具体分列的字符可修改200，200-199 =TRIM(MID(SUBSTITUTE($A1," ",REPT(" ",200)),COLUMN(A1)*200-199,200))...- 0
- 0
- 2.8k
-
Excel工作表内多列内容合并成一列
将多列的数据排列成一列。 【例】下图C、D、E 三列数据，现需要按顺序粘贴到A列中。 你会怎么做的呢，如果不出意外。应该是： 复制C1:C6，粘贴到A1:A6 复制D1:D3，找到位置，粘贴到A7:A9 复制E1:E4，找到位置，粘贴到A10:A13 如果有更多列，复制.....，粘贴..... 其实最费时间的，是向下翻找粘贴位置，要耗费多半时间。 如果用今天的粘贴技巧： 打开剪贴板 复制C1:C…...- 0
- 0
- 2.1k
-
Excel表格按条件自动编号
举例：excel根据姓名自动生成序号 公式：=countif(B$2:B2,B2) 举例：按条件组合生成序号 公式：=A2&TEXT(COUNTIF(A$2:A2,A2),"0000")...- 0
- 0
- 4.8k
扫码打开当前页
-
￥优惠劵使用时效：无法使用使用时效：
之前
使用时效：永久有效优惠劵ID：×