-
Excel提取指定目录的文件夹名和文件名
提取出来指定目录的文件夹名 Sub getFldList1() Dim Fso, Fld Dim Arr(1 To 999), k% Set Fso = CreateObject("Scripting.FileSystemObject") Set Fld = Fso.getfolder(CreateObject("Shell.Application").Br…...- 小朱笔记
- 0
- 0
- 1.7k
-
Excel表格批量横向去重复数据公式
Excel表格横向删除重复数据公式,反回值为空。 =IFERROR(OFFSET($A1,,MATCH(0,COUNTIF($Z1:Z1,$B1:$Y1),),)," ")...- 小朱笔记
- 0
- 0
- 3.6k
-
Excel中A列和B列交叉逐一组合公式
Excel中A列和B列交叉逐一组合公式 例如: 解: E1输入公式 =INDIRECT("A"&COLUMN(A1))&$B1 下拉3,再右拉4 结果如图 C1输入公式 =OFFSET($E$1,MOD(ROW()-1,4),CEILING(ROW()/4,1)-1) 4 :B列数...- 小朱笔记
- 0
- 0
- 3k
-
Excel若要在64位系统上使用,则必须更新此项目中的代码
Excel提示若要在64位系统上使用,则必须更新此项目中的代码。请检查并更新Declare语句,然后用PtrSafe属性标记它们。 将Declare 改成 Declare PtrSafe...- 小朱笔记
- 0
- 0
- 12k
-
-
excel删除中文字符,保留英文和数字VBA公式
excel删除中文字符,保留英文和数字VBA公式,筛选关键词使用excel在单元格中只去掉汉字、保留下英文或数字的方法。 Sub test() Dim objRegExp As Object Dim i As Long, arr arr = Range("a1:b" & Cells(Rows.Count, 1).End(xlUp).Row).Value Set objR…...- 小朱笔记
- 0
- 0
- 5.2k
-
Excel多个工作簿合并到一个工作簿中
把多个工作簿合并成一个工作簿中的多个sheet。 把要合并的工作簿放在同一个文件夹。 新建一个工作薄,将其命名为你合并后的名字。 1、打开工作簿,在工作表名称处右击,选择查看代码。 2、在打开的VBA编辑窗口中粘贴以下代码:(根据需要修改xls或者xlsx) Sub 多表多文件合并为多表一文件() Dim FileArray Dim X As Integer Application.ScreenU…...- 小朱笔记
- 0
- 0
- 2.8k
-
Excel公式对比速卖通无忧和E邮宝运费
速卖通发货,选择合理的物流商,能节省运费成本。利用Excel计算好各渠道运费,然后进行对比,选择合适的渠道设置对应的运费模板。 比如:速卖通无忧标准运费和E邮宝,计算好克重进行对比 公式:=IF(B3>C3,"E邮宝",IF(C3>=B3,"无忧"))...- 小朱笔记
- 0
- 0
- 2.1k
-
Excel提取指定文件夹内的所有文件名
Excel提取指定文件夹内的所有文件名。 Sub 提取指定文件夹内的所有文件名() '含所有子文件夹内的文件 Dim Fso As Object, arrf$(), mf& Set Fso = CreateObject("Scripting.FileSystemObject") Call GetFiles(CreateObject("Shell.Ap…...- 小朱笔记
- 0
- 0
- 1.5k