关于excel的一个问题,可能要用到VBA,所有积分都给您! excel 中的vba问题: find 和copy函数的应用

作者&投稿:爱新觉罗娜 (若有异议请与网页底部的电邮联系)

亲,首先将你的统计文件和所有人的总结文件放在同一个文件夹中。

打开你的Excel统计文件,按“Alt+F11”打开VBA编辑窗口,然后在左侧对应的Sheet上双击,右侧空白处粘贴下面的代码。关闭VBA窗口。然后按“Alt+F8”打开宏窗口,选择刚插入的宏,点击“执行”。

 

Sub jcl()
Dim f, ff As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set ff = fso.getfolder(ThisWorkbook.Path & "\")
Dim rg As Range
For Each rg In Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)
    For Each f In ff.Files
        If f.Name <> ThisWorkbook.Name And Left(f.Name, 2) <> "~$" Then
            If InStr(f.Name, rg.Value) > 0 Then rg.Offset(0, 1).Value = "是": Exit For Else rg.Offset(0, 1).Value = "否"
        End If
    Next f
Next
Set fso = Nothing
End Sub


这个简单,我接受这个任务,一会发文件给你。
10 分钟做不好,先占位。你追问后我再发附件给你,可多得20分哈

提取表名,用函数最后获取结果

帮助解决一下EXCEL的问题,可能要用到VBA,我完全不会~

Sub test1()On Error Resume NextDim arrDim i, j, k, rowc, kk 'i行 5列rowc = Range("a65535").End(3).Rowkk = Application.InputBox("开始列数", "1-5")If kk = False Then Exit SubEnd IfSelect Case kk Case 1, 2, 3, 4, 5 arr = Sheets(1).UsedRange For i = 1 To UBound(arr) For j = kk To 5 If Not IsNumeric(arr(i, j)) Then MsgBox i & "行" & j & "列含非数字" Exit Sub End If If pd(Int(arr(i, j))) Then Cells(i, j).Interior.ColorIndex = 6 i = i + 1 k = 0 Else Cells(i, j).Interior.ColorIndex = 4 j = j - 1 i = i + 1 k = k + 1 If k > 1 Then j = j + 1 k = k - 2 End If End If Next j i = i - 1 kk = 1 Next i With Range(Cells(rowc + 1, 1), Cells(65536, 5)).Interior .Pattern = xlNone .TintAndShade = 0 .PatternTintAndShade = 0 End With Case Else Exit SubEnd SelectEnd SubFunction pd(shuzi As Integer) As BooleanSelect Case shuzi Case 1, 2, 4, 7, 8, 10 pd = True Case Else pd = FalseEnd SelectEnd Function你再试试看有问题没,新手刚学,写的头疼

不用VBA也可
sheet12 A2列公式
=IF(COUNTIF(Sheet1!$A:$A,$A2)>=0,A2,"")
向下向右复制。
然后对sheet2筛选不为空的,复制后粘贴到新表即可

EXCEL 问题:在一列数字里,当鼠标在上面的一个单元格里呈黑十字时往下...
答:按ctrl就是序列了。同理,复制和序列的转换都是按ctrl可以实现。我的2007没遇到过。所以也不知道怎么回事。不过据经验可能在Excel选项和自动完成选项里面可以设置。

Excel数据求和问题,一个数据表,列数比较多,要解决的问题是每两列后插 ...
答:假如数据列为C列、D列,插入列为E列 第一行数据占1的话,点E1---=---“C1"+"D1"---点回车;第二部鼠标垫E1,松开,再点E1单元格右下角的小方块,下拉到数据的最后一行,至此,C列、D列的所有数据均将和置于E列了。

有一个重要的排列问题,请中国Excel高手告诉我???
答:楼上两位朋友的方法正确,但其实不用那么麻烦,用不着任何公式就可轻松搞定,跟我做:比如共有200行数据,在原始数据前插入两列,第一列输入1至200,当然不用一个一个输,用鼠标拖一下就可以了,第二列的第一行输入1,第二列第二行输入0,第三行输入1,第四行输入0,以此类推,目的是使第二列...

求问关于excel日期和if函数的一个公式问题
答:你的公式应该是正确的。上面就是将大于今天的显示出来and将小于等于今天365天的日期显示出来,其它不显示。

excel输入不了,要回车并跳到另一个文件才能输入?
答:因为你的其中一个文件已经在公式输入状态了,必须完成它或者取消它的输入状态才能往别的位置输入。所以你可以按esc取消之前的公式输入状态,即可输入了。

excel 公式问题 我要在O 一列面的单元格里面输入一个 “电”我要求在...
答:需要做一个数据对照表 比如在sheet2的A列输入简写,在B列输入全称 然后再Sheet1中P1输入公式 =vlookup(O1,sheet2!a:b,2,0)公式可以下拉复制 如果只有两个选项就不必上面说的数据表了 P1公式 =if(O1="电","电汇公司",if(O1="现","快递代收",""))...

excel问题 有A公司,B公司,C公司,D公司,E公司 这五个公司,每个公司里面...
答:VLOOKUP(A2,A:G,2,0) =VLOOKUP(A2,A:G,3,0)

excel奇怪问题,有一组关联的数值,我用了求和公式计算,得到的结果与一个...
答:把那个数值是单元格删掉在重新添加一组单元格,这样就好了。 或者就是数值单元格左上角有个三角符号的东西 点击一下 ,出先以个感叹号,在点击 然后选择 “转换数字”就OK了

同台电脑两个用户打开EXCEL速度不一样的问题
答:首先要确认一下问题:运行excel程序速度不同?还是用已经运行的excel程序打开相同文件时的速度不同?我能想到的原因,你可以试试逐个排除:1、查看系统进程,看看2用户的进程有什么不同。2、可能是杀毒软件的配置造成的,查看杀毒软件的配置。3、可能是因为慢用户的临时文件夹中太多垃圾造成的。试试清理...

excel问题.当前表中的某单元格内容(如姓名列中的某个姓名)在另一工作表...
答:请在“帮助”主题中选取示例。不要选取行或列标题。从帮助中选取示例。按 Ctrl+C。在工作表中,选中单元格 A1,再按 Ctrl+V。若要在查看结果和查看返回结果的公式之间切换,请按 Ctrl+`(重音符),或在“工具”菜单上,指向“公式审核”,再单击“公式审核模式”。该示例使用 1 个大气压的空气...