=IFERROR(INDEX(B2:B1048576,1)&IFERROR("","+"&INDEX(B2:B1048576,2))&IFERROR("","+"&INDEX(B2:B1048576,3))&IFERROR("","+"&INDEX(B2:B1048576,4))&IFERROR("","+"&INDEX(B2:B1048576,5))&IFERROR("","+"&INDEX(B2:B1048576,6))&IFERROR("","+"&INDEX(B2:B1048576,7))&IFERROR("","+"&INDEX(B2:B1048576,8))&IFERROR("","+"&INDEX(B2:B1048576,9))&IFERROR("","+"&INDEX(B2:B1048576,10))&IFERROR("","+"&INDEX(B2:B1048576,11))&IFERROR("","+"&INDEX(B2:B1048576,12))&IFERROR("","+"&INDEX(B2:B1048576,13))&IFERROR("","+"&INDEX(B2:B1048576,14))&IFERROR("","+"&INDEX(B2:B1048576,15))&IFERROR("","+"&INDEX(B2:B1048576,16))&IFERROR("","+"&INDEX(B2:B1048576,17))&IFERROR("","+"&INDEX(B2:B1048576,18))&IFERROR("","+"&INDEX(B2:B1048576,19))&IFERROR("","+"&INDEX(B2:B1048576,20)), "") 这个公式的结果是 DA2305220203+DA2305220201

时间: 2023-07-18 17:26:48 浏览: 58
非常抱歉,我之前的回答还是有误。 如果您要将B列中所有不为空的单元格内容用符号+连接起来,并且结果中包含您提供的所有值,您可以使用以下公式: ``` =SUBSTITUTE(CONCATENATE(B2:B1048576,"+"),"++","+") ``` 该公式使用了Excel中的CONCATENATE函数将B2单元格及其以下所有不为空的单元格内容连接起来,并使用SUBSTITUTE函数将其中的连续两个符号+替换为单个符号+。 请注意,如果您的数据超过B2:B1048576范围,请根据实际情况修改公式中的数据范围。
相关问题

=TEXTJOIN("+",TRUE,B2:B1048576) 这个公式报错#NAME?

如果您的Excel版本低于2016,则不能使用TEXTJOIN函数,您可以使用以下公式: ``` =IFERROR(INDEX(B2:B1048576,1)&IFERROR("","+"&INDEX(B2:B1048576,2))&IFERROR("","+"&INDEX(B2:B1048576,3))&IFERROR("","+"&INDEX(B2:B1048576,4))&IFERROR("","+"&INDEX(B2:B1048576,5))&IFERROR("","+"&INDEX(B2:B1048576,6))&IFERROR("","+"&INDEX(B2:B1048576,7))&IFERROR("","+"&INDEX(B2:B1048576,8))&IFERROR("","+"&INDEX(B2:B1048576,9))&IFERROR("","+"&INDEX(B2:B1048576,10))&IFERROR("","+"&INDEX(B2:B1048576,11))&IFERROR("","+"&INDEX(B2:B1048576,12))&IFERROR("","+"&INDEX(B2:B1048576,13))&IFERROR("","+"&INDEX(B2:B1048576,14))&IFERROR("","+"&INDEX(B2:B1048576,15))&IFERROR("","+"&INDEX(B2:B1048576,16))&IFERROR("","+"&INDEX(B2:B1048576,17))&IFERROR("","+"&INDEX(B2:B1048576,18))&IFERROR("","+"&INDEX(B2:B1048576,19))&IFERROR("","+"&INDEX(B2:B1048576,20)), "") ``` 该公式会将B2单元格及其以下所有不为空的单元格内容用符号+连接起来。 请注意,如果您的数据超过B2:B1048576范围,请根据实际情况修改公式中的数据范围。

=IFERROR(INDEX(B:B, SMALL(IF(B2:B65536<>"", ROW(B2:B65536)-ROW(B2)+1), ROW()-ROW(B2)+1)), "")这个公式输出结果是B1的内容,我需要输出除了B1外的内容

如果您希望公式从B2单元格开始输出结果,则可以将公式中的ROW()-ROW(B2)+1修改为ROW()-ROW(B1)+1,如下所示: ``` =IFERROR(INDEX(B:B, SMALL(IF(B2:B65536<>"", ROW(B2:B65536)-ROW(B1)), ROW()-ROW(B1))), "") ``` 这样,公式就会从B2单元格开始输出结果了,而不是从B1单元格开始。 请注意,该公式同样使用了数组公式,因此需要使用Ctrl + Shift + Enter组合键进行确认。

相关推荐

以下代码不能正常输出日期到指定单元格,请帮我修复,且告诉我错误的问题 Private Sub Worksheet_Change(ByVal Target As Range) Dim rng As Range, cell As Range Dim arr() As Variant Dim cnt As Long Dim isCopying As Boolean ' 如果B1单元格为空,直接退出Sub过程 If Me.Range("B1").Value = "" Then Exit Sub If Not Intersect(Target, Me.Range("B1")) Is Nothing Then Sheets("点位提取").Range("C5:C200").ClearContents If Me.Range("AH34").Value = True Then Me.ListBox1.AddItem "数据已被清空 " & Format(Now, "hh:mm:ss") Me.ListBox1.ListIndex = Me.ListBox1.ListCount - 1 End If Set rng = Me.Range("B1:B2000") cnt = 0 isCopying = False For Each cell In rng If cell.Value = ":BEGIN" Then isCopying = True ReDim arr(2000) If Me.Range("AH34").Value = True Then Me.ListBox1.AddItem "开始提取数据 " & Format(Now, "hh:mm:ss") Me.ListBox1.ListIndex = Me.ListBox1.ListCount - 1 End If ElseIf cell.Value = ":END" Then isCopying = False ReDim Preserve arr(cnt - 1) Sheets("点位提取").Range("C5").Resize(cnt, 1).Value = Application.Transpose(arr) If Me.Range("AH34").Value = True Then Me.ListBox1.AddItem "数据已进行提取完毕 " & Format(Now, "hh:mm:ss") Me.ListBox1.ListIndex = Me.ListBox1.ListCount - 1 End If Exit For End If If isCopying And cell.Value <> ":BEGIN" Then arr(cnt) = rng.Cells(cell.Row, 1).Value cnt = cnt + 1 End If Next cell End If If Target.Address = "B2" Then Dim startDate As Date Dim endDate As Date startDate = DateSerial(Year(Date), Month(Date), Day(Date) - 3) endDate = Date Worksheets("数据配置").Range("E11").Value = Format(startDate, "yyyy-mm-dd") Worksheets("数据配置").Range("E12").Value = Format(startDate + 1, "yyyy-mm-dd") Worksheets("数据配置").Range("E13").Value = Format(startDate + 2, "yyyy-mm-dd") Worksheets("数据配置").Range("E14").Value = Format(endDate, "yyyy-mm-dd") End If On Error GoTo ErrorHandler Exit Sub ErrorHandler: If Me.Range("AH36").Value = True Then Me.ListBox2.AddItem Err.Description & " " & Format(Now, "hh:mm:ss") Me.ListBox2.ListIndex = Me.ListBox2.ListCount - 1 End If End Sub

在以下宏中帮我把查找结果输出到对应的AL9-EG40单元格中 Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim rng As Range, cell As Range Dim arr() As Variant Dim cnt As Long Dim isCopying As Boolean Dim i As Integer Dim j As Integer Dim k As Integer Dim ws As Worksheet Set ws = ActiveSheet ' 如果B1单元格为空,直接退出Sub过程 If Me.Range("B1").Value = "" Then Exit Sub If Not Intersect(Target, Me.Range("B1")) Is Nothing Then Sheets("点位提取").Range("C5:C200").ClearContents If Me.Range("AH34").Value = True Then Me.ListBox1.AddItem "数据已被清空 " & Format(Now, "hh:mm:ss") Me.ListBox1.ListIndex = Me.ListBox1.ListCount - 1 End If Set rng = Me.Range("B1:B2000") cnt = 0 isCopying = False For Each cell In rng If cell.Value = ":BEGIN" Then isCopying = True ReDim arr(2000) If Me.Range("AH34").Value = True Then Me.ListBox1.AddItem "开始提取数据 " & Format(Now, "hh:mm:ss") Me.ListBox1.ListIndex = Me.ListBox1.ListCount - 1 End If ElseIf cell.Value = ":END" Then isCopying = False ReDim Preserve arr(cnt - 1) Sheets("点位提取").Range("C5").Resize(cnt, 1).Value = Application.Transpose(arr) If Me.Range("AH34").Value = True Then Me.ListBox1.AddItem "数据已进行提取完毕 " & Format(Now, "hh:mm:ss") Me.ListBox1.ListIndex = Me.ListBox1.ListCount - 1 End If Exit For End If If isCopying And cell.Value <> ":BEGIN" Then arr(cnt) = rng.Cells(cell.Row, 1).Value cnt = cnt + 1 End If Next cell If Target.Address = "$B$2" Then For i = 9 To 40 For j = 2 To 7 If ws.Cells(i, j).Value = ws.Cells(8, 5).Value Then For k = 3 To 4 ws.Cells(i, j + k - 2).Value = ws.Cells(Application.Match(ws.Cells(i, 1).Value, ws.Range("AK9:AK40"), 0) + 8, k).Value Next k End If Next j Next i End If End If On Error GoTo ErrorHandler Exit Sub ErrorHandler: If Me.Range("AH36").Value = True Then Me.ListBox2.AddItem Err.Description & " " & Format(Now, "hh:mm:ss") Me.ListBox2.ListIndex = Me.ListBox2.ListCount - 1 End If End Sub

最新推荐

recommend-type

IntelliJ IDEA报错Error:java: Compilation failed: internal java compiler error的解决办法

今天小编就为大家分享一篇关于IntelliJ IDEA报错Error:java: Compilation failed: internal java compiler error的解决办法,小编觉得内容挺不错的,现在分享给大家,具有很好的参考价值,需要的朋友一起跟随小编来...
recommend-type

IDEA导入外部项目报Error:java: 无效的目标发行版: 11的解决方法

主要介绍了IDEA导入外部项目报Error:java: 无效的目标发行版: 11,本文给大家介绍的非常详细,对大家的学习或工作具有一定的参考借鉴价值,需要的朋友可以参考下
recommend-type

【IAR】定义结构体出现的错误Error[e27]:

想定义两个结构体,在WARN.h 文件中定义结构体,然后再WARN.c文件中使用: ER_WARN.Span=0x0000;...结构编译器报错:Error[e27]: Entry "ER_WARN" in module AD ( C:…… ) redefined in module FINGERPRINT (…… )
recommend-type

解决mysql ERROR 1017:Can't find file: '/xxx.frm' 错误

如果重启服务器前没有关闭mysql,MySql的MyiSAM表很有可能会出现 ERROR #1017 :Can't find file: '/xxx.frm' 的错误
recommend-type

解决python脚本中error: unrecognized arguments: True错误

主要介绍了解决python脚本中error: unrecognized arguments: True错误,具有很好的参考价值,希望对大家有所帮助。一起跟随小编过来看看吧
recommend-type

zigbee-cluster-library-specification

最新的zigbee-cluster-library-specification说明文档。
recommend-type

管理建模和仿真的文件

管理Boualem Benatallah引用此版本:布阿利姆·贝纳塔拉。管理建模和仿真。约瑟夫-傅立叶大学-格勒诺布尔第一大学,1996年。法语。NNT:电话:00345357HAL ID:电话:00345357https://theses.hal.science/tel-003453572008年12月9日提交HAL是一个多学科的开放存取档案馆,用于存放和传播科学研究论文,无论它们是否被公开。论文可以来自法国或国外的教学和研究机构,也可以来自公共或私人研究中心。L’archive ouverte pluridisciplinaire
recommend-type

实现实时数据湖架构:Kafka与Hive集成

![实现实时数据湖架构:Kafka与Hive集成](https://img-blog.csdnimg.cn/img_convert/10eb2e6972b3b6086286fc64c0b3ee41.jpeg) # 1. 实时数据湖架构概述** 实时数据湖是一种现代数据管理架构,它允许企业以低延迟的方式收集、存储和处理大量数据。与传统数据仓库不同,实时数据湖不依赖于预先定义的模式,而是采用灵活的架构,可以处理各种数据类型和格式。这种架构为企业提供了以下优势: - **实时洞察:**实时数据湖允许企业访问最新的数据,从而做出更明智的决策。 - **数据民主化:**实时数据湖使各种利益相关者都可
recommend-type

解释minorization-maximization (MM) algorithm,并给出matlab代码编写的例子

Minorization-maximization (MM) algorithm是一种常用的优化算法,用于求解非凸问题或含有约束的优化问题。该算法的基本思想是通过构造一个凸下界函数来逼近原问题,然后通过求解凸下界函数的最优解来逼近原问题的最优解。具体步骤如下: 1. 初始化参数 $\theta_0$,设 $k=0$; 2. 构造一个凸下界函数 $Q(\theta|\theta_k)$,使其满足 $Q(\theta_k|\theta_k)=f(\theta_k)$; 3. 求解 $Q(\theta|\theta_k)$ 的最优值 $\theta_{k+1}=\arg\min_\theta Q(
recommend-type

JSBSim Reference Manual

JSBSim参考手册,其中包含JSBSim简介,JSBSim配置文件xml的编写语法,编程手册以及一些应用实例等。其中有部分内容还没有写完,估计有生之年很难看到完整版了,但是内容还是很有参考价值的。