随笔分类 - excel
摘要：1.建立相应的宏，名称分别：查找填充 默认 2.点击“文件”菜单，“选项”卡 3.选择“快速访问工具栏”4.从“从下列位置选择命令”，选择“宏”5.则刚才的宏名自动出现在左侧，将两个都添加到右侧“自定义快速访问工具栏” 6.点击“确定”即可
阅读全文
摘要：1、[A 65536] .End(xl Up) .Row 'A列末行向上第一个有值的行数2、[A 1] .End(xl Down) .Row 'A列首行向下第一个有值之行数3、[IV 1] End(xl To Lef) .Column '第一行末列向左第一列有数值之列数。
阅读全文
摘要：1.选择相应的内容复制 2.在目标位置设置“单元格格式” 文本 3.再选择性粘贴 值
阅读全文
摘要：countif(b2:b24,b2)只能准确比较前15位 countif(b2:b24,b2&"*")可以比较超过15位 16 17 18位更多 搜索 复制
阅读全文
摘要：from openpyxl import Workbook class TuniuPipeline(object): # 设置工序一 self.wb = Workbook() self.ws = self.wb.active self.ws.append(['新闻标题', '新闻链接', '来源网站
阅读全文
摘要：Sub qx() For Each chk In ActiveSheet.CheckBoxes If chk.Caption = "1.7" Then '选中了 chk.Value = 1 End If If chk.Caption = "1.6" Then '选中了 chk.Value = 1 E
阅读全文
摘要：Sub jian() Dim xx As Double Dim ji As Double Dim b1 As String Dim arr(8) As Variant For xx = 255 To 0 Step -1 ji = xx b1 = DECtoBINa(ji) For a = 1 To
阅读全文
摘要：a=String(3, "0") & "aaa" 则结果a的值为000aaa
阅读全文
摘要：注意：这两个函数都修改了参数的值，如果想再次使用相应的值应该提前保留 如：a=10;b=DECtoBIN(a);则结果:b=1010,a=0 Public Function DECtoBIN(Dec As Double) As String DECtoBIN = "" Do While Dec >
阅读全文
摘要：宏最上面：Private Declare Function timeGetTime Lib "winmm.dll" () As Long Private Sub wait(aa) Dim Savetime As DoubleText1 = "timeGetTime begin"Savetime =
阅读全文
摘要：Sub shezhi()rem 设置星期日列、晚自习行格式设置Dim sht As WorksheetFor Each sht In WorksheetsIf sht.Name <> "Sheet1" Then sht.Selectsht.Activate Columns("I:I").Select
阅读全文
摘要：Dim x Dim sht As WorksheetFor Each sht In WorksheetsIf sht.Name <> "Sheet1" Then sht.Selectsht.Activate For Each x In ActiveSheet.DrawingObjects If x.
阅读全文
摘要：Sub shezhi()Dim sht As WorksheetFor Each sht In WorksheetsIf sht.Name <> "Sheet1" Then sht.Selectsht.Activate Columns("I:I").Select Selection.ColumnWi
阅读全文
摘要：行号：pow() 列号：column() rem 将所有工作表名称写入到当前工作表第一列 Sub shtName() Dim sht As Worksheet, i As Integer i = 1 For Each sht In Worksheets Cells(i, "A") = sht.Nam
阅读全文
摘要：=INDEX(A:A,SMALL(IF(MATCH($A$2:$A$13,$A$2:$A$13,0)=ROW($A$2:$A$13)-1,ROW($2:$13),4^8),ROW(1:1)))&""=INDEX($B:$B,SMALL(IF($A$2:$A$13=$E2,ROW($A$2:$A$13
阅读全文
摘要：=VLOOKUP(B2,'[班级表1.xlsx]Sheet1 (2)'!$B:$F,3,0) =vlookup(查找目标，查找区域，结果为区域第几列，精确查找0） 查找区域：‘[工作簿名称全名]工作表名’!区域名称
阅读全文
摘要：=IF(AND($B2>0,$C2>0,$D2>0,$E2>0),(($B2*1000/$C2/60/$D2)*$E2),0)点击F2,粘贴上边的公式选择F2到f200ctrl+shit+enterctrl+d则f2-f200全部相应的公式，则以后在第二行到第200行间任意输入都可以计算
阅读全文
摘要：1。单独调整WORD大小：平时拖动右侧竖格则整列变宽 指向当前单元格左下角，变成斜上箭头时点左键，（全选整个格）再拖动右侧
阅读全文
摘要：Function pda(x) a = x If Len(a) = 1 Then ab = "00" & a ElseIf Len(a) = 2 Then ab = "0" & a Else ab = a End If pda = ab End Function Sub yy() Worksheet
阅读全文
摘要：Function pda(x) a = x If Len(a) = 1 Then ab = "00" & a ElseIf Len(a) = 2 Then ab = "0" & a ElseIf Len(a) = 3 Then ab = a End If pda = ab End Function
阅读全文
浙公网安备 33010602011771号