Excel中如何在一个单元格设置几个项目 Excel表中,如何在单个单元格中添加多个选项?

Excel\u4e2d\u5982\u4f55\u5728\u4e00\u4e2a\u5355\u5143\u683c\u8bbe\u7f6e\u51e0\u4e2a\u9879\u76ee

1,\u5173\u4e8e\u663e\u793a\u7f16\u6392\u6b21\u6570\u516c\u5f0f\u4e3a\uff1a=COUNTIF(\u67e5\u8be2!B:E,C2) 2\uff0c\u5173\u4e8e\u7edf\u8ba1\u5404\u5206\u7c7b\u6b21\u6570\uff1a=COUNTIF(\u6570\u636e!$M$2:$M$17,B3) 3\uff0c\u5173\u4e8e\u6279\u91cf\u6dfb\u52a0\u6279\u6ce8\u53ef\u7528\u5982\u4e0b\u4ee3\u7801\uff1a Sub yueliang() Dim i, j, k As Integer With Sheets("\u6570\u636e") 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 \u6ce8\uff1a\u5173\u4e8e\u6279\u6ce8\u7684\u5185\u5bb9\uff0c\u4f60\u53ef\u4ee5\u81ea\u5df1\u518d\u6dfb\u52a0\u3002

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

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

确认后,效果如下图:



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
注:关于批注的内容,你可以自己再添加。

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

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

注意,要用英文的逗号。

用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条件的问题

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

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

这样有筛选就可以选出来

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

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

  • 鎬庝箞灏excel涓竴涓崟鍏冩牸璁剧疆鎴愬涓崟鍏冩牸?
    绛旓細寮鍚垎姝ラ槄璇绘ā寮 鎿嶄綔鏂规硶 01 鍑嗗涓涓凡缁忓惈鏈夋暟鎹殑Excel鏂囨。锛屽鍥炬墍绀猴紝鍙互鐪嬪埌鍘熸湰鎯宠鍒嗗紑鐨勬暟鎹叏閮鍦ㄤ竴涓崟鍏冩牸鍐咃紝閭d箞姝ゆ椂鎯宠鍒嗗紑杩欎釜鏁版嵁瑕佹庝箞鍋氬憿锛02 鐢ㄩ夊彇妗嗛変腑闇瑕佽繘琛屼慨鏀圭殑鏁版嵁锛岀偣鍑绘渶涓婃柟鐨勨滄暟鎹濄傚鍥炬墍绀轰綅缃03 鐒跺悗鍦ㄥ彸涓嬫柟鐨勫姛鑳藉尯涓壘鍒扳滄暟鎹伐鍏封濅竴鏍忥紝閫夋嫨閲岄潰鐨勨...
  • 濡備綍鍦ㄤ竴鍗曞厓鏍涓緭鍏ュ涓夐」鍛?
    绛旓細浠Excel 2010涓轰緥锛岄氳繃鏁版嵁鏈夋晥鎬ф坊鍔犲涓夐」鐨勬楠ゆ槸锛氾紙1锛夐夋嫨瑕佹坊鍔犲涓夐」鐨鍗曞厓鏍锛涳紙2锛夌偣鍑烩滄暟鎹濋夐」鍗′腑鐨勨滄暟鎹湁鏁堟р濓紱锛3锛夊鍥鹃夋嫨鈥滃簭鍒椻濓紝鍦ㄢ滄潵婧愨濋噷杈撳叆娆璁剧疆鐨勯夐」锛屽A,B,C,D锛堟澶勯夐」鐢ㄨ嫳鏂,闅斿紑锛夛紙4锛夌‘瀹氬悗锛屽彲浠ュ彂鐜板崟鍏冩牸鏈夊涓夐」鐨勪笅鏉ュ垪琛ㄣ
  • Excel涓浣曡缃竴涓崟鍏冩牸鐨勫,1銆佸湪鍙﹀2鍒楃殑鑼冨洿鍐呮椂,涓哄疄闄呭,2...
    绛旓細闂鍙欒堪涓嶆竻妤氾紝涓嶅湪鑼冨洿鏃跺欙紝鍙栨渶澶у肩殑鏉′欢鏄:C澶т簬鑼冨洿鐨勬渶澶у硷紱鍙栨渶灏忓肩殑鏉′欢鏄:c灏忎簬鑼冨洿鐨勬渶灏忓笺傚叕寮忓彲浠ュ鍒剁矘璐村悗鐩存帴浣跨敤锛屽叿浣撳叕寮忎负锛=IF(AND(C2>=MIN($A$2:$B$9),C2<=MAX($A$2:$B$9)),C2,IF(C2<MIN($A$2:$B$9),MIN($A$2:$B$9),MAX($A$2:$B$9))...
  • EXCEL 鎬庝箞鎶婂叾涓殑涓涓崟鍏冩牸璁涓轰繚瀛樼殑鏂囦欢鍚
    绛旓細閲囩敤鍑芥暟鏉ュ疄鐜帮紝鏂规硶濡備笅锛氬湪鍗曞厓鏍涓緭鍏モ=MID(CELL("filename"),FIND("[",CELL("filename"))+1,FIND("]",CELL("filename"))-FIND("[",CELL("filename"))-1)鈥濓紝鍥炶溅锛涘涓嬪浘鍗冲彲寰楀埌excel鐨勬枃浠跺悕銆
  • 鎬庝箞鍦‥xcel涓缃竴涓崟鍏冩牸瀵瑰簲鍙︿竴涓崟鍏冩牸?
    绛旓細鍦‥XCEL涓浣曡缃竴涓崟鍏冩牸鏍规嵁鍙︿竴鍗曞厓鏍肩殑鏂囧瓧锛屾樉绀哄搴旂殑鏁板瓧鐨勫叿浣撴楠ゅ涓嬶細1銆侀鍏堟垜浠墦寮鐢佃剳閲岀殑Excel锛岄夋嫨涓涓崟鍏冩牸渚嬪C4锛岀偣鍑绘暟鎹洰褰曚笅鐨勬暟鎹湁鏁堟с2銆佺劧鍚庢垜浠啀寮瑰嚭鐨勭晫闈㈤噷鍏佽涓嬮潰閫夋嫨搴忓垪锛屽湪鏉ユ簮涓婇潰濉啓鎵闇鐨勯夋嫨鍐呭锛岀敤灏忓啓鐨勯楀彿闅斿紑锛屼緥濡傞粍鑹,绾㈣壊,缁胯壊,钃濊壊銆3銆佸湪F銆...
  • 濡備綍鍦ㄤ竴涓狤xcel鍗曞厓鏍鍐呰緭鍏ュ琛屽唴瀹
    绛旓細鏈夋椂鍊欙紝鎴戜滑鎯鍦ㄤ竴涓狤xcel鍗曞厓鏍涓緭鍏ュ琛屽唴瀹癸紝鍙互鏍规嵁涓嶅悓鎯呭喌閫夋嫨涓嬮潰鐨勬柟娉曟潵瀹炵幇锛氭柟娉曚竴锛氬鏋滄湁澶ч噺鐨勫崟鍏冩牸闇瑕佽繖鏍峰仛锛岄噰鍙栨绉璁剧疆鏍煎紡鐨勬柟娉曪細閫変腑闇瑕佽繖绉嶆牸寮忕殑鍗曞厓鏍硷紝鎵ц鈥滄牸寮忊啋鍗曞厓鏍尖濆懡浠わ紝鎵撳紑鈥滃崟鍏冩牸鏍煎紡鈥濆璇濇(濡傚浘)锛屽垏鎹㈠埌鈥滃榻愨濇爣绛句笅锛岄変腑鈥滆嚜鍔ㄦ崲琛屸濋夐」锛岀‘瀹氳繑鍥...
  • 濡備綍鍦╡xcel涓缃瀵涓涓崟鍏冩牸鐨勬暟鎹繘
    绛旓細鏂规硶锛1銆佹墦寮EXCEL琛ㄦ牸锛 閫夋嫨瑕璁剧疆鐨勮〃鏍硷紝鐐瑰嚮宸ュ叿鏍--鏁版嵁--鏁版嵁鏈夋晥鎬с2銆佸湪寮瑰嚭椤甸潰涓紝灏嗏濆厑璁糕滆涓哄簭鍒楋紱鏉ユ簮涓衡濊緭鍏ュソ鐨勬枃鏈紝涔熷彲鎵嬪姩濉厖銆傚叿浣撳涓嬪浘銆
  • 鍦╡xcel閲屽浣曞湪涓涓绌烘牸閲岀敾鏂滅嚎骞剁紪杈戞枃瀛
    绛旓細鍙互浣跨敤alt+enter鍦ㄥ悓涓涓崟鍏冩牸涓繘琛屾崲琛屻3銆佸皢鏂囧瓧閿欏紑銆傞氳繃浣跨敤娣诲姞绌烘牸鐨勬柟寮忥紝灏嗕袱涓枃瀛楄繘琛岄敊寮銆4銆璁剧疆鍗曞厓鏍兼牸寮忥紝娣诲姞鏂滅嚎銆傞夋嫨鍗曞厓鏍硷紝鐐瑰嚮鍙抽敭锛岄夋嫨璁剧疆鍗曞厓鏍兼牸寮忋5銆侀夋嫨杈规--鐐瑰嚮鍙充笅瑙掔殑鏂滅嚎鍥炬爣锛岀劧鍚庣偣鍑荤‘瀹氭寜閽6銆佹坊鍔犲ソ鏂滅嚎涔嬪悗锛屽氨鍙互鐪嬪埌娣诲姞鍚庣殑鏁堟灉銆
  • 鍦╡xcel涓涓崟鍏冩牸涓浣杈撳叆涓ゆ帓鏂囧瓧?
    绛旓細鏉愭枡/宸ュ叿锛Excel2010 1銆侀紶鏍囧乏閿弻鍑昏绠楁満妗岄潰Excel2016绋嬪簭鍥炬爣锛屽皢鍏舵墦寮杩愯銆傚湪鎵撳紑鐨凟xcel2016绋嬪簭绐楀彛锛岀偣鍑烩滅┖鐧藉伐浣滆杽鈥濋夐」锛屾柊寤涓涓绌虹櫧Excel宸ヤ綔钖勩2銆鍦ㄥ崟鍏冩牸涓緭鍏ユ枃瀛楀唴瀹癸紝鏂囧瓧鍐呭瓒呭嚭鍗曞厓鏍兼锛屾枃瀛楀唴瀹瑰湪鍗曞厓鏍间腑杩樻槸涓琛屾樉绀虹殑锛屼笉浼氳嚜鑷姩杩涜鎹㈣銆3銆侀変腑鍗曞厓鏍硷紝鐐瑰嚮榧犳爣鍙抽敭锛...
  • Excel 鍦ㄤ竴涓鏂规涓敾涓涓枩绾,涓婁笅鏂归兘鍐欏瓧,杩欎釜鎬庝箞寮?
    绛旓細1銆佷互excel2010鐗堟湰涓轰緥锛岄鍏堥変腑瑕佺敾鏂滅嚎鐨勫崟鍏冩牸锛岀劧鍚庣偣鍑婚紶鏍囧彸閿紝鍦ㄥ脊鍑虹殑璁剧疆妗嗛噷閫夋嫨鈥璁剧疆鍗曞厓鏍鏍煎紡鈥濓紝鐐瑰嚮锛2銆佸湪寮瑰嚭鐨勮缃閲岋紝鐐瑰嚮杈规锛岀劧鍚庡湪涓嬮潰鐨勮竟妗璁剧疆閲閫夋嫨鏂滃瑙掔嚎锛岀敤榧犳爣鍦ㄨ竟妗嗙殑鍗曞厓鏍间腑闂寸偣涓涓嬪氨浼氬嚭鐜版枩绾夸簡锛屽啀鐐瑰嚮纭畾鍒欏彲锛3銆佸氨鍙互鐪嬪埌璇ュ崟鍏冩牸琚敾涓婁簡涓鏉℃枩绾...
  • 扩展阅读:单元格里添加小单元格 ... 新手怎么制作表格 ... 让单元格自动适应文字 ... 单元格一分为二列 ... 一个单元格上下分二层 ... 两个小格怎么合并一个 ... 一个格子内容一分为二 ... excel表格 ... 一个单元格拆分成多行 ...

    本站交流只代表网友个人观点,与本站立场无关
    欢迎反馈与建议,请联系电邮
    2024© 车视网