精华内容
下载资源
问答
  • 在天冷了,要照顾好自己,衣服要穿厚厚的,看起来胖胖的,让别人怕怕的。如下图所示,在Excel里取消合并单元格后,如何批量填充...此时A列空单元格已被一次性选中>在编辑框输入:=A2>Ctrl+Enter以上Excel操...

    在天冷了,要照顾好自己,衣服要穿厚厚的,看起来胖胖的,让别人怕怕的。

    如下图所示,在Excel里取消合并单元格后,如何批量填充空格?

    0f4fcc3fd46ec8aa6a2f3b5b62db48d9.png

    选中A列>【开始】>【合并后居中】>此时A列已取消合并单元格>Ctrl+G>【定位条件】>【空值】>【确定】>此时A列空单元格已被一次性选中>在编辑框输入:=A2>Ctrl+Enter

    5044934de1d949ada472b6abf985dbbd.png

    以上Excel操作以Excel2016 pro plus为准

    我是元宝,热衷数据分析的小女子

    了不起的数据分析

     立即关注

    取消合并单元格后,Excel如何批量填充空格取消合并单元格后,Excel如何批量填充空格取消合并单元格后,Excel如何批量填充空格取消合并单元格后,Excel如何批量填充空格取消合并单元格后,Excel如何批量填充空格取消合并单元格后,Excel如何批量填充空格取消合并单元格后,Excel如何批量填充空格取消合并单元格后,Excel如何批量填充空格取消合并单元格后,Excel如何批量填充空格取消合并单元格后,Excel如何批量填充空格取消合并单元格后,Excel如何批量填充空格取消合并单元格后,Excel如何批量填充空格取消合并单元格后,Excel如何批量填充空格取消合并单元格后,Excel如何批量填充空格取消合并单元格后,Excel如何批量填充空格取消合并单元格后,Excel如何批量填充空格取消合并单元格后,Excel如何批量填充空格取消合并单元格后,Excel如何批量填充空格取消合并单元格后,Excel如何批量填充空格取消合并单元格后,Excel如何批量填充空格取消合并单元格后,Excel如何批量填充空格取消合并单元格后,Excel如何批量填充空格取消合并单元格后,Excel如何批量填充空格取消合并单元格后,Excel如何批量填充空格取消合并单元格后,Excel如何批量填充空格取消合并单元格后,Excel如何批量填充空格取消合并单元格后,Excel如何批量填充空格取消合并单元格后,Excel如何批量填充空格取消合并单元格后,Excel如何批量填充空格取消合并单元格后,Excel如何批量填充空格取消合并单元格后,Excel如何批量填充空格取消合并单元格后,Excel如何批量填充空格取消合并单元格后,Excel如何批量填充空格取消合并单元格后,Excel如何批量填充空格取消合并单元格后,Excel如何批量填充空格取消合并单元格后,Excel如何批量填充空格

    展开全文
  • 一次转换整个区域  在某空白单元格中,输入数字“1”。选中单元格,并在“编辑”菜单上单击“复制”命令。选取需转换的存储为文本数字的单元格区域。在“编辑”菜单上,单击“选择粘贴”。在“运算”下,单击...
    一次转换整个区域
    

      在某空白单元格中,输入数字“1”。选中该单元格,并在“编辑”菜单上单击“复制”命令。选取需转换的存储为文本数字的单元格区域。在“编辑”菜单上,单击“选择性粘贴”。在“运算”下,单击“乘”。单击“确定”按钮。

    展开全文
  • 这里有一部分拿来就用的宏代码,可以先观看目录看看是否有需要的。 取消隐藏所有的行和列 ... 一次性关掉所有打开的工作簿 将选中区域保存为PDF文件 删除选中单元格区域的空格字符 将选定区域

    这里有一部分拿来就用的宏代码,可以先观看目录看看是否有需要的。

    1. 取消隐藏所有的行和列
    2. 对所有合并单元格取消合并
    3. 以当前时间为名字保存工作簿
    4. 将每张工作表单独保存为一个PDF文件
    5. 将工作簿保存为一个PDF文件
    6. 保护所有带公式的单元格
    7. 给选定区域交替高亮显示,增加可读性
    8. 高亮显示所有带评论的单元格
    9. 在选定区域内高亮显示所有的空单元格
    10. 重新调整所有的图表为同样大小
    11. 给当前工作簿创建备份
    12. 一次性关掉所有打开的工作簿
    13. 将选中区域保存为PDF文件
    14. 删除选中单元格区域的空格字符
    15. 将选定区域内的空白单元格以0填充
    16. 合并多个工作表
    17. 合并多个Excel文件

    对于Excel来说,只需要按住Alt + F11就可以打开宏编辑器,然后点击插入->模块菜单,将代码复制进去,适当修改就可以使用了。对于WPS表格需要升级为专业版本,并且安装VBA支持才可以运行宏代码。


    '取消隐藏所有的行和列
    Sub UnhideRowsColumns()
    Columns.EntireColumn.Hidden = False
    Rows.EntireRow.Hidden = False
    End Sub
    
    '对所有合并单元格取消合并
    Sub UnmergeAllCells()
    ActiveSheet.Cells.UnMerge
    End Sub
    
    '以当前时间为名保存Excel文件
    Sub SaveWorkbookWithTimeStamp()
    Dim timestamp As String
    timestamp = Format(Date, "dd-mm-yyyy") & "_" & Format(Time, "hh-ss")
        ThisWorkbook.SaveAs "目录绝对路径" & timestamp
    End Sub
    
    '将每张工作表单独保存为一个PDF文件
    Sub SaveWorkshetAsPDF()
    Dim ws As Worksheet
    For Each ws In Worksheets
    ws.ExportAsFixedFormat xlTypePDF, "目录绝对路径" & ws.Name & ".pdf"
    Next ws
    End Sub
    
    '将动作不保存为一个PDF文件
    Sub SaveWorkshetAsPDF()
    ThisWorkbook.ExportAsFixedFormat xlTypePDF, "目录绝对路径" & ThisWorkbook.Name & ".pdf"
    End Sub
    
    '保护所有带公式的单元格
    Sub LockCellsWithFormulas()
    With ActiveSheet
       .Unprotect
       .Cells.Locked = False
       .Cells.SpecialCells(xlCellTypeFormulas).Locked = True
       .Protect AllowDeletingRows:=True
    End With
    End Sub
    
    '在选中区域的每一行下面插入一个空行
    Sub InsertAlternateRows()
    Dim rng As Range
    Dim CountRow As Integer
    Dim i As Integer
    Set rng = Selection
    CountRow = rng.EntireRow.Count
    For i = 1 To CountRow
    ActiveCell.EntireRow.Insert
    ActiveCell.Offset(2, 0).Select
    Next i
    End Sub
    
    '给选定区域高亮交替显示,增加表格可读性
    Sub HighlightAlternateRows()
    Dim Myrange As Range
    Dim Myrow As Range
    Set Myrange = Selection
    For Each Myrow In Myrange.Rows
       If Myrow.Row Mod 2 = 1 Then
          Myrow.Interior.Color = vbCyan
       End If
    Next Myrow
    End Sub
    
    '高亮显示所有带评论的单元格
    Sub HighlightCellsWithComments()
    ActiveSheet.Cells.SpecialCells(xlCellTypeComments).Interior.Color = vbBlue
    End Sub
    
    '高亮显示选定区域内所有的空单元格
    Sub HighlightBlankCells()
    Dim Dataset as Range
    Set Dataset = Selection
    Dataset.SpecialCells(xlCellTypeBlanks).Interior.Color = vbRed
    End Sub
    
    '将所有的图表调整为同样大小
    Sub Resize_Charts()
    Dim i As Integer
    For i = 1 To ActiveSheet.ChartObjects.Count
    With ActiveSheet.ChartObjects(i)
    .Width = 300
    .Height = 200
    End With
    Next i
    End Sub
    
    '按照时间创建当前工作簿的备份
    Sub FileBackUp()
    ThisWorkbook.SaveCopyAs Filename:=ThisWorkbook.Path & _
    "" & Format(Date, "mm-dd-yy") & " " & _
    ThisWorkbook.name
    End Sub
    
    '删除选中单元格区域的空格字符
    Sub RemoveSpaces()
    Dim myRange As Range
    Dim myCell As Range
    Select Case MsgBox("You Can't Undo This Action. " _
    & "Save Workbook First?", _
    vbYesNoCancel, "Alert")
    Case Is = vbYesThisWorkbook.Save
    Case Is = vbCancel
    Exit Sub
    End Select
    Set myRange = Selection
    For Each myCell In myRange
    If Not IsEmpty(myCell) Then
    myCell = Trim(myCell)
    End If
    Next myCell
    End Sub
    
    '将选定单元格区域内的空单元格以0填充
    Sub replaceBlankWithZero()
    Dim rng As Range
    Selection.Value = Selection.Value
    For Each rng In Selection
    If rng = "" Or rng = " " Then
    rng.Value = "0"
    Else
    End If
    Next rng
    End Sub
    
    '合并多个工作表,这些工作表要有同样的表头,并且没有合并单元格
    Option Explicit
    Sub hebing()
        '把各班成绩表中的记录合并到"成绩表"工作表中
        Dim sht As Worksheet
        Set sht = Worksheets("成绩表")'你要合并在哪张工作表,就把哪张工作表的名字输入进去即可
        sht.Rows("2:65536").Clear      '删除成绩表中的原有记录
        Dim wt As Worksheet, xrow As Integer, rng As Range
        For Each wt In Worksheets                   '循环处理工作簿中的每张工作表
            If wt.Name <> "成绩表" Then'你需要合并数据的那张工作表的名字
                Set rng = sht.Range("A1048576").End(xlUp).Offset(1, 0)
                xrow = wt.Range("A1").CurrentRegion.Rows.Count - 1
                wt.Range("A2").Resize(xrow, 7).Copy rng'数字7对应你要合并的工作表有多少列就写几,在本例中是7.
            End If
        Next
    End Sub
    

    合并多个工作表

    合并多个工作表

    '合并多个Excel文件,这些工作表要有同样的表头,并且没有合并单元格
    Option Explicit
    Sub HzWb()
        Dim bt As Range, r As Long, c As Long
        r = 1    '1 是表头的行数
        c = 7    '7 是表头的列数
        Dim wt As Worksheet
        Set wt = ThisWorkbook.Worksheets(1)    '将汇总表赋给变量wt
        wt.Rows(r + 1 & ":1048576").ClearContents  ' 清除汇总表中原表数据,只保留表头
        Application.ScreenUpdating = False
        Dim FileName As String, sht As Worksheet, wb As Workbook
        Dim Erow As Long, fn As String, arr As Variant
        FileName = Dir(ThisWorkbook.Path & "\*.xlsx")
        Do While FileName <> ""
            If FileName <> ThisWorkbook.Name Then        ' 判断文件是否是汇总数据的工作簿
                Erow = wt.Range("A1").CurrentRegion.Rows.Count + 1     ' 取得汇总表中第一条空行行号
                fn = ThisWorkbook.Path & "\" & FileName     '将第1个要汇总的工作簿名称赋给变量fn
                Set wb = GetObject(fn)        ' 将变量fn 代表的工作簿对象赋给变量wb
                Set sht = wb.Worksheets(1)    ' 将要汇总的工作表赋给变量sht
                ' 将工作表中要汇总的记录保存在数组arr里
                arr = sht.Range(sht.Cells(r + 1, "A"), sht.Cells(1048576, "B").End(xlUp).Offset(0, 5))
                ' 将数组arr 中的数据写入工作表
                wt.Cells(Erow, "A").Resize(UBound(arr, 1), UBound(arr, 2)) = arr
                wb.Close False
            End If
            FileName = Dir    ' 用Dir 函数取得其他文件名,并赋给变量
        Loop
        Application.ScreenUpdating = True
    End Sub
    

    合并多个文件

    合并多个文件


    宏代码系列到这里就结束了,Excel篇就讲这么多了。后面有了新的体会的时候再来分享。普通用户学会这些已经用的很不错了。本系列至此结束。

    展开全文
  • 1. Excel Excel处理方式:选中单元格,然后移到一个空白单元格,右键/粘贴选项/转置T,...pd.options.display.max_columns = 999 #设置一次性显示多列 videos = pd.read_excel('C:/Tools/Python/Pandas/021/Vide...

    1. Excel

    Excel处理方式:选中单元格,然后移到一个空白单元格,右键/粘贴选项/转置T,即可实现行列转置

    2. Pandas

    import pandas as pd
    
    pd.options.display.max_columns = 999 #设置一次性显示多列
    videos = pd.read_excel('C:/Tools/Python/Pandas/021/Videos.xlsx')
    table = videos.transpose()
    print(table)
                    0     1     2      3      4      5      6      7      8  \
    Month         Jan   Feb   Mar    Apr    May    Jun    Jul    Aug    Sep   
    Active User  1000  1500  2250   3375   5063   7595  11393  17090  25635   
    Page View    3500  5250  7875  11813  17721  26583  39876  59815  89723   
    
                      9      10      11  
    Month           Oct     Nov     Dec  
    Active User   38453   57680   86520  
    Page View    134586  201880  302820  
    import pandas as pd
    
    pd.options.display.max_columns = 999 #设置一次性显示多列
    videos = pd.read_excel('C:/Tools/Python/Pandas/021/Videos.xlsx',index_col='Month')
    # 设置以Month这一列为索引,代替出现的0-11.
    table = videos.transpose()
    print(table)
    Month         Jan   Feb   Mar    Apr    May    Jun    Jul    Aug    Sep  \
    Active User  1000  1500  2250   3375   5063   7595  11393  17090  25635   
    Page View    3500  5250  7875  11813  17721  26583  39876  59815  89723   
    
    Month           Oct     Nov     Dec  
    Active User   38453   57680   86520  
    Page View    134586  201880  302820 

     

    展开全文
  • 执行下列编辑操作:将第行标题改为粗斜黑体4号右对齐,用两个紧挨着的符号SYMBOL字符190来替换字符串“**”,用Word中的符号Wingdings字符203来替换字符“*”,标题与正文间空一行;正文中的所有中文改为黑体5号...
  • 一次选中批注单元格 一次在所有单位格中插入批注 在公式中插入批注 不连续单元格填充同一数据 空白行的填充 怎样用函数向下实现自动填充 怎么设置自动保存 避免输入网址和电子邮件地址时的超链接 单元格前面自动加...
  • excel的使用

    2012-11-25 17:06:01
    这时先不要忙着把B列和C列删除,先要把D列的结果复制一下,再用“选择粘贴”命令,将数据粘贴到列上。这时再删掉B、C、D列的数据。下面是个“&”实际应用的例子。用AutoCAD绘图时,有人喜欢在EXCEL中存储...
  • EXCEL函数公式集

    热门讨论 2010-03-16 03:26:38
    一次选中批注单元格 一次在所有单位格中插入批注 在公式中插入批注 不连续单元格填充同一数据 空白行的填充 怎样用函数向下实现自动填充 怎么设置自动保存 避免输入网址和电子邮件地址时的超链接 单元格前面自动加...
  • -Grid增加GetNoSelectionAlertInParentReference函数,用来表示没有选中任何项时在父页面弹出对话框的JS代码。 -修正IE7下不能以下划线作为CSS中类名的前缀的BUG(feedback:Steve.Wei)。 -添加定时器控件Timer,...
  • 3、在第一次使用本系统时,如果仓库中有库存,必须把这些库存的材料作 为进库材料以进库单的 方式进行登记,否则材料使用报表得不到准确的统计结果。 4、在输入“修理”类型的出库单时,如果只有“金额”而...
  • VBA常用技巧

    2014-12-21 16:39:28
    技巧30 工作表中一次插入多行 12 技巧31 删除工作表中的空行 12 技巧32 删除工作表的重复行 12 技巧33 定位删除特定内容所在的行 12 技巧34 判断是否选中整行 12 技巧35 限制工作表的滚动区域 12 技巧36 复制自动...
  • EXCEL集成工具箱V6.0

    2010-09-11 01:44:37
    【批量修改批注】 批量一次性修改选中存储格区域批注的样式。 【批量图片批注】 可批量将图片生成带图片背景的批注。 【批量名称图片批注】 可批量将图片依对应名称生成带图片背景的批注。 【显示与隐藏批注】 ...
  • VBA编程技巧大全

    2013-08-05 09:03:19
    技巧30 工作表中一次插入多行 83 技巧31 删除工作表中的空行 84 技巧32 删除工作表的重复行 86 技巧33 定位删除特定内容所在的行 88 技巧34 判断是否选中整行 89 技巧35 限制工作表的滚动区域 90 技巧36 复制自动...
  • 【批量修改批注】 批量一次性修改选中存储格区域批注的样式。 【批量图片批注】 可批量将图片名称导入到任意当前选中的空白存储格中并生成带图片背景的批注。 【批量名称图片批注】 可批量将图片依对应存储格中的...
  • 【批量修改批注】 批量一次性修改选中存储格区域批注的样式。 【批量图片批注】 可批量将图片生成带图片背景的批注。 【批量名称图片批注】 可批量将图片依对应名称生成带图片背景的批注。 【显示与隐藏批注】 ...
  • 【批量修改批注】 批量一次性修改选中存储格区域批注的样式。 【批量图片批注】 可批量将图片生成带图片背景的批注。 【批量名称图片批注】 可批量将图片依对应名称生成带图片背景的批注。 【显示与隐藏批注】 ...
  • 【批量修改批注】 批量一次性修改选中存储格区域批注的样式。 【批量图片批注】 可批量将图片生成带图片背景的批注。 【批量名称图片批注】 可批量将图片依对应名称生成带图片背景的批注。 【显示与隐藏批注】 ...
  • 实例118 自定义多执行的循环标签 实例119 自定义显示版权信息标签 实例120 自定义图片浏览标签 实例121 自定义文件下载的标签 实例122 自定义数据查询的标签 实例123 自定义生成随机数的标签 实例124 ...
  • 第7章 数据绑定控件

    2011-05-27 11:23:57
    实例219 一次性编辑GridView控件的所有行 中的数据 347 实例220 嵌套DropDownList控件根据库存量 设置商品停售 348 实例221 嵌套CheckBox实现批量删除和更新 供求信息 349 实例222 结合CheckBox实现密码重置 (MD5...
  • JavaScript笔记

    2018-09-28 11:21:56
    | 每次只查找第一次出现的位置 |--替换:x.replace(‘关键字’[,‘替换内容’])--不会修改原x字符串 | 每次只替换第一次找到的 |--查找和替换所有:while循环 | |--String 对象的常用方法有: |--x....
  • 修改BUG:超级列表框在属性“整行选择”为真时,鼠标单击第列右面也会导致第列中的选择框被选中或取消选中。 21. 修改BUG:Sqlite3数据库支持库中“Sqlite数据库.取错误文本()”返回的文本是UTF-8编码(应是GB...
  • 2004-2010软考程序员真题

    热门讨论 2012-09-27 12:33:00
     34、在word的编辑状态,设置了个由多个行和列组成的表格,将插入点定在某个单元格内,用鼠标单击"表格"命令菜单中的"选定行"命令,再用鼠标单击"表格"命令菜单中的"选定列"命令,则表格中被"选择"的部分是 ...
  • 009 区分空单元格与空文本 13 010 让空白单元格不显示为0 13 ◎函数屏幕提示的妙用 15 011 提示函数的语法结构 15 012 查看函数参数的意义 17 013 快速选定指定参数 17 014 快速获取函数的帮助信息 19 ...
  • ExtAspNet_v2.3.2_dll

    2010-09-29 14:37:08
    -Grid增加GetNoSelectionAlertInParentReference函数,用来表示没有选中任何项时在父页面弹出对话框的JS代码。 -修正IE7下不能以下划线作为CSS中类名的前缀的BUG(feedback:Steve.Wei)。 -添加定时器控件Timer,...
  • delphi 开发经验技巧宝典源码

    热门讨论 2010-08-12 16:47:23
    0096 使用Pos函数返回子字符串第一次出现的索引值 66 0097 使用Quotedstr函数返回字符串的引证串 66 0098 使用Trim函数删除字符串的首尾空格 66 4.2 数学计算函数 67 0099 使用Abs函数返回指定数值的绝对值...
  • asp.net知识库

    2015-06-18 08:45:45
    .NET 2.0 泛型在实际开发中的一次小应用 C#2.0 Singleton 的实现 .Net Framwork 强类型设计实践 通过反射调用類的方法,屬,字段,索引器(2種方法) ASP.NET: State Server Gems 完整的动态加载/卸载程序集的解决方案 ...
  • 13、Silverlight(15) - 2.0数据之一次绑定, 单向绑定, 双向绑定, INotifyPropertyChanged, 数据转换, 数据验证 介绍 Silverlight 2.0 数据绑定: Binding - 将绑定目标对象的属性与数据源联接起来 ...
  • 实例219 一次性编辑GridView控件的所有行中的数据 347 实例220 嵌套DropDownList控件根据库存量设置商品停售 348 实例221 嵌套CheckBox实现批量删除和更新供求信息 349 实例222 结合CheckBox实现密码重置(MD5加密) ...
  • 实例219 一次性编辑GridView控件的所有行中的数据 347 实例220 嵌套DropDownList控件根据库存量设置商品停售 348 实例221 嵌套CheckBox实现批量删除和更新供求信息 349 实例222 结合CheckBox实现密码重置(MD5加密) ...
  • 实例219 一次性编辑GridView控件的所有行中的数据 347 实例220 嵌套DropDownList控件根据库存量设置商品停售 348 实例221 嵌套CheckBox实现批量删除和更新供求信息 349 实例222 结合CheckBox实现密码重置(MD5加密) ...

空空如也

空空如也

1 2
收藏数 40
精华内容 16
关键字:

一次性选中空单元格