
具体解决方法 *** 作步骤如下:
1、要求对比A列和C列,找出两列相同和不同的姓名。首先选中要对比的A列和C列。
2、点击开始—条件格式—突出显示单元格规则—重复的值,在跳出的对话框点确定。
3、这时我们就可以看到重复的值变成深红色了。
有这么几个问题:
1 MkDir语句中的括号里应为 ("E:\" & fname) '创建文件夹。
——注意引号和&的配合。
2 打开文件夹语句不对。那个open是打开指定文件的语句
3 对象创建后注意关闭(清理后再离场)
测试后的完整代码为:
Sub 创建文件夹()
Dim fname '定义变量
fname = ActiveSheetRange("a1") '指定表格内容
MkDir ("E:\" & fname) ' '创建文件夹
'WorkbooksOpen ("E:\" & fname) '打开文件夹
Set Fs = CreateObject("ScriptingFileSystemObject") '复制指定文件到指定文件夹
Fscopyfile "d:\scan\aaxlsx", "e:\" & fname & "\aaxlsx", True '
Set Fs = Nothing
End Sub
带括号的部分很好替换。
但是要不让前面的部分不变成时间,就需要将数据处理一下。
现在这一列后面插入一列G。
G2输入公式:
="'" & F2
下拉。
然后复制G列,选择性粘贴值到F列。
然后选择F列,单击编辑--替换
在查找处输入:
(:)
替换处什么也不输入。
单击全部替换即可。
至于旁边的一列直接显示310结果,没明白什么意思。
如果是根据总比分来定310的话。可以在插入的那一列G2写公式:
=IF(LEFT(F2,FIND(":",F2)-1)-RIGHT(F2,LEN(F2)-FIND(":",F2))>0,3,IF(LEFT(F2,FIND(":",F2)-1)-RIGHT(F2,LEN(F2)-FIND(":",F2))=0,1,0))
下拉即可得到310的结果。
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)