Excel中如何在一个单元格设置几个项目

发布网友 发布时间：2022-04-24 06:13

我来回答

共5个回答

热心网友 时间：2023-10-08 16:18

EXCEL基础单元格是无法再继续拆分的，这个不同于word表格可以画斜线表头；当然可以采取几个基础单元格分别设置“项目”，然后设置边框和填充，视觉上可以达到一个单元格的效果，图下图：

边框设置，选择外边框，填充设置选择纯白色

确认后，效果如下图：

热心网友 时间：2023-10-08 16:18

1,关于显示编排次数公式为：=COUNTIF(查询!B:E,C2)
2，关于统计各分类次数：=COUNTIF(数据!$M$2:$M$17,B3)
3，关于批量添加批注可用如下代码：
Sub yueliang()
Dim i, j, k As Integer
With Sheets("数据")
For i = 2 To Cells(2, 2).End(xlDown).Row
For j = 2 To Cells(2, 2).End(xlToRight).Column
If Cells(i, j).NoteText = "" And Cells(i, j) <> "" Then
k = Application.Match(Cells(i, j), .Range("c1:c17"), 0)
Cells(i, j).AddComment
Cells(i, j).Comment.Visible = False
Cells(i, j).Comment.Text Text:=.Cells(k, 3) & "," & .Cells(k, 4) & "," & .Cells(k, 5) & "," & .Cells(k, 6)
End If
Next
Next
End With
End Sub
注：关于批注的内容，你可以自己再添加。

热心网友 时间：2023-10-08 16:18

用数据有效性可以实现。就在在后面加个下拉框进行选择的。

点菜单中数据-有效性-设置-“允许”里选序列-“来源”里输入爱情片，惊悚片，故事片

注意，要用英文的逗号。

热心网友 时间：2023-10-08 16:19

用VBA大概做了一个，假定你的选择在C列，C1用数据有效性自己做个下拉菜单，包含各种影片类型和“全部”，宏
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Target.Count <> 1 Then Exit Sub
If Cells(1, 3) = "全部" Then Rows("2:65536").EntireRow.Hidden = False: Exit Sub
i = 2
Do While Cells(i, 3) <> ""
If Cells(i, 3) Like "*" & Cells(1, 3) & "*" Then
Rows(i).EntireRow.Hidden = False
Else
Rows(i).EntireRow.Hidden = True
End If
i = i + 1
Loop
Application.ScreenUpdating = True
End Sub
选择全部则为全部显示
主演什么的同理，基本上就是加个IF条件的问题

热心网友 时间：2023-10-08 16:20

1. 如果你的电影可以对应多个类型,那么你的表格是怎么设计的? 建议可以设计成如下

电影名称 惊悚片 爱情片 ...
电影A 是 否

这样有筛选就可以选出来

否则你就要用逗号或者其他符号分割不同的类型,这样就用下面的vba可以实现

2. 在表1第二列输入
=vlookup(A1,sheet2!B1:C9999,3)