逆火下载站软件下载最安全的绿色软件下载和学习资料下载!
您的位置:首页>软件教程>办公软件>Excel Home_Excel 为什么向下求和公式得不出结果?等

Excel Home_Excel 为什么向下求和公式得不出结果?等

我要评论发布时间:2017-06-19来源:https://www.nhxz.com/编辑:逆火下载站编辑

各位老师大家好!本求助附件第4行有多个向下求和公式,这些公式原本好好的,但自从对相关数据进行整理后,其公式就没有结果了,系统提示J4、L4、N4、P4、Q4、R4的公式均为循环引用。请各位老师帮忙看看,公式好像没有被循环引用呢?谢谢!
区间包括了公式本身的单元格,附件已经修改了
为什么向下求和公式得不出结果-可以了.rar

谢谢wming1025老师的答案。请问:此前的公式原本是可以整列引用的,为什么现在就不行了?这是什么原因? 没看到你之前的函数设置,不知你是怎么做的。应该是显示结果的单元格不在计算区域的整列内, 我在excel里写一个vba,运行取word的值,取到的值用来判断。判断时出错,请问如何改写。Sub aa()
    On Error Resume Next
    Dim fname As String, filename, nr As String
    Dim xls As Object
    Set xls=ThisWorkbook.Sheets("Sheet1") "设置签标指定位置xls表1
    fname=Dir(ThisWorkbook.Path & "\*.docx") '遍历所有文件名
    If fname <> "" Then '如果不为空
    Do Until fname="" '为空时跳出循环

        filename=ThisWorkbook.Path & "\" & fname '取得完整路径


        Set doc=GetObject(filename)
                    nr=Left(doc.tables(1).cell(4, 2).Range.Text, Len(doc.tables(1).cell(4, 2).Range.Text) - 1) '-1是删掉回车键

                  'xls.Range("A1")=nr'这个内容录入sheet1的A1位置,自己再手动在C1输入《并联电容器成套装置》用IF也判断不对等。
         If nr="并联电容器成套装置" Then '为何nr取到的值得同《并联电容器成套装置》不对等呢
         MsgBox nr
        xls.Cells(h, h)=Left(doc.tables(i).cell(h, h), Len(doc.tables(i).cell(h, h)) - 1)
            End If
        fname=Dir
        Loop

        End If

End Sub
主要想把word整个表格内写入excel里。因为有多个word文档,需判断该文档中的表格里有“并联电容器成套装l置”关键写时才取值。请各位大神帮看看,感激不尽……。






请问一下,我想统计我上面那个word里现几次"并联电容器成套装置"出现几次怎么统计呢?有时我里面有几个那样的表,有的可能没有这个字符串。我想让存在这个字符存的表格才传到excel中。
相当于查询word,中这字符出现的次数


我试了一下,表格里的内容需要-2才能把回车符删掉,即改成:
nr=Left(doc.tables(1).cell(4, 2).Range.Text, Len(doc.tables(1).cell(4, 2).Range.Text) - 2)
或者,你用split函数直接取回车符之前的内容:
nr=Split(doc.tables(1).cell(4, 2).Range, Chr(13))(0)

非常感谢,这个回车是两个字符的啊……。一直没有虑到,看msgbox一样了,看不出回车!

不是回车符占2个字符,而是在回车符后面还有一个字符,具体为什么我也没搞清楚,估计是表格的信息吧,我在调试的时候看到的。你调试的时候不要用msgbox,你用立即窗口,即debug.print ,就能看到了。
有没有查到这个表时一次性把word传到excel中呢?
我试了doc.tables(1).copy     xls.Range("A1").Paste,复制粘贴没有反应。可能语法不对。
Sub aa()
    On Error Resume Next
    Dim fname As String, filename, nr As String
    Dim xls As Object
    Set xls=ThisWorkbook.Sheets("Sheet1") '设置签标指定位置xls表1
    fname=Dir(ThisWorkbook.Path & "\*.docx") '遍历所有文件名
    If fname <> "" Then '如果不为空
    Do Until fname="" '为空时跳出循环
        
        filename=ThisWorkbook.Path & "\" & fname '取得完整路径

        
        Set doc=GetObject(filename)
        
            nr=doc.tables(1).cell(4, 2).Range.Text
   
            nr=VBA.Replace(Split(nr, Chr(7))(0), Chr(13), "")
         
         'xls.Range("A1")=nr'这个内容录入sheet1的A1位置,自己再手动在C1输入《并联电容器成套装置》用IF也判断不对等。
         If nr="并联电容器成套装置" Then '为何nr取到的值得同《并联电容器成套装置》不对等呢
         MsgBox nr
... ead&tid=1345803
参考我这帖子的解释…………。
非常感谢。

我试了一下,下面分开写可以直接全部粘贴过来


下面可以直接复制不带格式的内容:

牛!双手点赞!

关键词: 公式 结果