[excel]收藏夹-遇过问题的解决方法总览

1.excel

1.1.excel-设置excel数据分级显示，按组隐藏

（1）点击【数据】功能菜单。
（2）选择【分级显示】功能。
（3）点击【分组】调出对话框。
（4）选择分组的依据，我们选择【行】。
（5）点击确定即可，此时数据分组显示。

1.2.excel-将Excel表格中的全部内容截图

（1）假如，我们要把表格中所有的内容截屏，就要选中所有的内容。
（2）选择，插入，照相机，在空白处点击一下，就会把刚才选中的内容截图了。
（3）选中刚才截图的图片，鼠标右键选择另存为图片（s），选择保存到一个位置，单击保存按钮。

1.3.excel-两个数据透视表利用切片器进行数据联动

（1）创建两个数据透视表。
（2）选中其中一个 数据透视表。菜单栏中选择 分析。选择 插入切片器。
（3）选中 切片器。菜单栏中选择 选项。选择 报表连接。
（4）打勾 两个数据透视表。
（5）点击 切片器的选项，测试数据是否联动。
https://www.bilibili.com/video/BV1N5411576W?from=search&seid=3888285071824380042

1.4.excel-只复制可见单元格

（1）隐藏不需要的单元格。
（2）选中你需要复制的单元格。
（3）CTRL+G打开 “定位”窗口。
（4）在 “定位”窗口中选择“定位条件”。在“定位条件”窗口中选择“可见单元格”。
（5）CTRL+C进行复制，再定位要粘贴的位置CTRL+V就可以粘贴可见的单元格区域了。

1.5.excel-把两个单元格的内容合并在一起

（1）将B2单元格的内容和C2单元格的内容拼接在一起，=B2&C2
（2）将B2单元格的内容和C2单元格的内容拼接在一起，中间使用-作为连接=B2&"-"&C2

1.6.excel-有3行不一样的内容,自动向下填充

（1）选择 需要向下填充的列的一整列。
（2）按F5调出定位功能，点击定位条件。
（3）选择 空值，点确定。
（4）在第一个空白单元格（B3）处输入“=”。
（5）然后点击上一单元格B2。
（6）按Ctrl+Enter组合键。自动填充完成。
https://zhidao.baidu.com/question/1802245155933954067.html

1.7.excel-手机号脱敏

（1）公式：=LEFT(C6,3)&"****"&RIGHT(C6,4)

（2）公式：=REPLACE(C6,4,4,"****")

1.8.excel-删除EXCEL其他数据源链接

1、打开数据表，在数据下点击连接。
2、若出现对应的连接就选中对应记录，然后选择断开连接就可以了，但是有些无效的外部连接并不能在此处显示出来，那么就要关闭工作簿按照其他提示操作了。
3、关闭重开工作簿，在更新提示对话框里选择更新。
4、点继续。选中对应链接，然后点断开链接。
5、再次确认点击断开链接，然后点击保存。下次再打开工作薄的时候就不会有更新链接的提示了。

1.9.excel-VLOOKUP中的精确查找是False（或者0）；近似匹配是True（或者1）

VLOOKUP(A9,database!A:D,3,0)

1.10.excel-countifs判断条件为多个

A列不等于CN和不等于RJ，B列不等于重庆和不等于北京。
=COUNTIFS(A1:A10,"<>"&{“CN”,“RJ”},B1:B10,"<>"&{“北京”,“重庆”})

1.11.excel-计算出6个月前的日期

=DATE(YEAR(TODAY()),MONTH(TODAY())-6,DAY(TODAY()))

1.12.excel-上个月的第一天上个月的最后一天

上个月的第一天： =EOMONTH(A1,-2)+1
上个月的最后一天： =EOMONTH(A1,-1)

1.13.excel-sumproduct函数的含义及各种用法

https://baijiahao.baidu.com/s?id=1660240320722968019&wfr=spider&for=pc

1.14.excel-MATCH函数出错问题解决

MATCH函数的最后一个参数：当为1时，要求数据区域为升序排序；当为－1时，要求为降序排序；不然会出错。

1.15.excel-利用数据透视表，快速按月、季度、年汇总数据

（1）选择日期列 中的任意一行，点击右键，选择:创建组。
（2）弹出的窗口中选择"月"，点击确定。（可多选。）
https://jingyan.baidu.com/article/219f4bf7d1bc84de442d38ed.html

1.16.excel-Excel中只显示公式不显示结果怎么办

https://jingyan.baidu.com/article/63acb44a11c48361fdc17e65.html

2.vba

2.1.Excel vba-快速学习

（1）对想实现的功能手工操作一遍，同时录制宏
（2）根据录制的宏，更改参数及简单修改代码（加IF或者For循环）。下图是我写的第一个VBA代码，准确说是拿Macro录制后改出来的。
https://www.zhihu.com/question/20870802
https://www.excelhome.net/

2.2.Excel vba-获取当前当前单元格的行号和列号

行号：Selection.Offset(1, 0) = Selection.Row
列号：Selection.Offset(1, 2) = Selection.Column
Selection.Offset(1, 0)：单元格行偏移1，列偏移0；

2.3.Excel vba-检测一个中文字符串是否包含在另一个字符串中

Sub test4444()
	’InStr(str2, str1 )：str1 在str2里面吗？   
	str1 = "行号"
	str2= "获取当前当前单元格的行号"
	If InStr(str2, str1) <> 0 Then
		MsgBox "在里面"
	Else
		MsgBox "不在里面"
	End If
End Sub

2.4.Excel vba-截取指定字符串

（1）

Sub test4444()
		Dim str1 As String
		str1 = "幸运数字是4444"
		Debug.Print Left(sr, 5)            '结果：幸运数字是
		Debug.Print Right(sr, 5)           '结果：是4444
		Debug.Print Mid(sr, 6, 2)          '结果：44
		Debug.Print Left(sr, Len(sr) - 1)  '结果：幸运数字是444
End Sub

left(字符串，截取长度) 返回从字符串左边算起指定截取长度的字符。
right(字符串，截取长度) 返回从字符串右边算起指定截取长度的字符。
mid(字符串，截取起始位置，截取长度) 返回从字符串左边算的截取起始位置起的指定截取长度的字符。
Len（字符串） 返回字符串长度。
（2）

Sub test4444()
    Dim str1 As String, arr
    str1 = "幸运数字是4444"
    arr = Split(str1, "是")
    Debug.Print UBound(arr)  ' 结果：1
    Debug.Print arr(0)  ' 结果：幸运数字
    Debug.Print arr(1)  ' 结果：4444
End Sub

split 将字符串按特定的字符分开，返回的是一个一维数组，数组的起始下标为0。

https://blog.csdn.net/weixin_32144483/article/details/112712231

2.5.Excel vba-字符串型数值和数值型字符串相互转换

Str()函数将数值转换为字符串，即返回一个代表一个数值的字符串。
CStr()函数将数值表达式转换为字符串。一般使用CStr()。

2.6.Excel vba-遍历某个文件夹中文件

Sub test4444()
	Dim pathfind, MyFile, path2
    pathfind = "D:\test4444\"
    MyFile = Dir(pathfind)
    Dim fso, folder1, fds, fd, folder2, fs
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set folder1 = fso.GetFolder(pathfind)  '获得文件夹
    Set fds = folder1.subfolders        '子文件夹集合
    For Each fd In fds                  '遍历子文件夹
        Set folder2 = fd                '获得文件夹2
        Set fs = folder2.Files          '文件集合
        If InStr(fd.Name, "周报") <> 0 Then
            path2 = pathfind & fd.Name & "\"
        End If
    Next
End Sub

https://blog.csdn.net/alexbnlee/article/details/6932339

2.7.Excel vba-表示下个月的第一天和本月最后一天

Sub test4444()
    Dim date1 As Date, date2 As Date
    date1 = DateAdd("m", 1, Now)
    date1 = CDate(Year(date1) & "-" & month(date1)) '下月第一天
    date2 = DateAdd("d", -1, date1) '本月最后一天
    Debug.Print date1, date2
End Sub

2.8.Excel vba-批量提取文件名+修改文件名

https://jingyan.baidu.com/article/fec4bce2722a10f2618d8b2d.html

2.9.Excel vba-获取当前月份的所有日期

Sub test4444()
    Dim TheDate As Date
    TheDate = DateSerial(Year(Date), month(Date), 1) '获取当日所在月份的第一天的日期
    While month(TheDate) = month(Date) '循环，直到跳出当月
        Debug.Print TheDate
        ActiveCell = TheDate '设置当前单元格值为当前日期
        TheDate = TheDate + 1 '当前日期的下一天
        ActiveCell.Offset(1, 0).Activate '激活下一个单元格，用于输出下一天的日期
    Wend
End Sub

2.10.Excel vba-常用代码100句

https://www.excelhome.net/484.html

2.11.Excel vba-等待设定时间，执行下个动作

Application.Wait (Now + TimeValue(“0:00:05”))

2.12.Excel vba-快速进行多行注释

选择“视图”-“工具栏”，勾选“编辑”（如图1示），出现编辑工具栏（如图2示），其中有“设置注释快”和“解除注释块”两按钮。

2.13.Excel vba-判断数据类型

typename()函数返回数据的类型名称

2.14.Excel vba-手动计算、自动计算

Application.Calculation=xlCalculationManual ’ 手动计算
Application.Calculation=xlCalculationAutomatic ’ 自动计算

2.15.Excel vba-最大值

test = Array(4444, 444, 44, 4)
k = Application.Max(test) ’ 返回的k值是4444，结果正常。

2.16.Excel vba-Application对象大全

http://www.360doc.com/content/14/0924/02/17203457_411895612.shtml

2.17.Excel vba-Excel 怎么跳过错误提示，让宏继续执行下去

On Error Resume Next ’ 忽略错误继续执行VBA代码,避免出现错误消息

2.18.Excel vba-数据库连接以及配置

https://www.cnblogs.com/shandongmiao/p/11805058.html
https://www.cnblogs.com/shandongmiao/p/9820566.html
http://www.360doc.com/content/18/1123/23/6836089_796832707.shtml

2.19.Excel vba-使用VBA读取UTF文件

https://blog.csdn.net/taller_2000/article/details/116194709

2.20.Excel vba-数据库连接超时

http://www.voidcn.com/article/p-bezdblvb-bun.html

2.21.Excel vba-VBA各种报错和原因备忘

https://blog.csdn.net/xuemanqianshan/article/details/88887647

3.其他

3.1.安装excel

https://www.jianshu.com/p/62c1d06a5943
https://www.jianshu.com/p/81b10b9e01c3

3.2.Visual Basic for Applications (VBA) 语言参考

https://docs.microsoft.com/zh-cn/office/vba/api/overview/language-reference

3.3.excel 运行时 1004 错误,怎么解决?

https://zhidao.baidu.com/question/214700885.html?qbl=relate_question_0&word=vba%20%B4%F2%BF%AAexcel%B4%ED%CE%F31004
http://www.xitongzhijia.net/xtjc/20181123/141801.html