写一个EXCEL公式,将表格B行中B2到B20所有有内容的单元格用符号'+'连接起来,如果没有内容后面不要有+符号
时间: 2024-03-05 15:51:09 浏览: 21
可以使用以下公式将B2到B20中有内容的单元格用'+'符号连接起来:
```
=IF(B2<>"",B2,"")&IF(B3<>"","+ "&B3,"")&IF(B4<>"","+ "&B4,"")&IF(B5<>"","+ "&B5,"")&IF(B6<>"","+ "&B6,"")&IF(B7<>"","+ "&B7,"")&IF(B8<>"","+ "&B8,"")&IF(B9<>"","+ "&B9,"")&IF(B10<>"","+ "&B10,"")&IF(B11<>"","+ "&B11,"")&IF(B12<>"","+ "&B12,"")&IF(B13<>"","+ "&B13,"")&IF(B14<>"","+ "&B14,"")&IF(B15<>"","+ "&B15,"")&IF(B16<>"","+ "&B16,"")&IF(B17<>"","+ "&B17,"")&IF(B18<>"","+ "&B18,"")&IF(B19<>"","+ "&B19,"")&IF(B20<>"","+ "&B20,"")
```
这个公式会检查每个单元格是否有内容,如果有则用'+'符号连接起来,否则不添加符号。注意,这个公式包括B2到B20单元格,如果需要修改范围,只需更改公式中的B2和B20即可。
相关问题
用VBA写一段将b2-b15与b20-b31区域中相同的文字填充黄色
以下是一段 VBA 代码,它可以将 B2 至 B15 与 B20 至 B31 区域中相同的文字填充黄色:
```
Sub FillSameTextYellow()
Dim rng1 As Range
Dim rng2 As Range
Dim cel1 As Range
Dim cel2 As Range
Set rng1 = Range("B2:B15")
Set rng2 = Range("B20:B31")
For Each cel1 In rng1
For Each cel2 In rng2
If cel1 = cel2 Then
cel1.Interior.Color = RGB(255, 255, 153)
cel2.Interior.Color = RGB(255, 255, 153)
End If
Next cel2
Next cel1
End Sub
```
您可以在 Microsoft Excel 中打开 VBA 编辑器(Alt + F11),然后将上述代码复制粘贴到模块中,最后运行该代码来实现功能。
Xlwings设置A15到B20单元格边框为细实现,然后把A15到B20最外侧边框设置为粗实线,颜色都为黑色
你可以使用 `Range` 对象的 `border` 属性来设置单元格的边框样式和颜色。下面是一个示例代码,可以实现你的需求:
```python
import xlwings as xw
# 打开 Excel 文件
workbook = xw.Book('example.xlsx')
# 获取要设置边框的单元格范围
cell_range = workbook.sheets['Sheet1'].range('A15:B20')
# 设置内部边框为细实线
cell_range.border.line_style = 'Continuous'
cell_range.border.weight = 1
# 获取最外侧的单元格范围
outer_range = cell_range[0,:].expand('down') + cell_range[-1,:].expand('up') + cell_range[:,0].expand('right') + cell_range[:,-1].expand('left')
# 设置最外侧边框为粗实线,颜色为黑色
outer_range.border.line_style = 'Continuous'
outer_range.border.weight = 4
outer_range.border.color = (0, 0, 0)
# 关闭 Excel 文件
workbook.close()
```
这个代码首先打开了一个名为 `example.xlsx` 的 Excel 文件,并获取了该文件中 `Sheet1` 工作表中 A15 到 B20 的单元格范围。然后,将这个单元格范围的内部边框设置为细实线。接下来,通过扩展最外侧的单元格范围来获取 A15 到 B20 的最外侧的单元格。最后,将这个最外侧单元格范围的边框样式设置为粗实线,颜色为黑色。最后,关闭 Excel 文件。