68手游网

如果要在Excel中用VBA的方法以根据某列内容删除重复的行，即当某列有重复数据时仅保留一行，可以用下面的VBA代码。假如以A列为参考，工作表的第一行为标题行，数据从第二行开始。 方法一：用工作表函数CountIf判断该行是否重复 Sub 删除重复行1() Dim i As Long Application.ScreenUpdating = False For i = Range(A65536)...

要在Excel中获取区域内各单元格字符串中的相同字符， 可用下面的自定义函数。例如要在D1单元格获取A1:C1区域各单元格中相同的字符，如图： 按Alt+F11，打开VBA编辑器，单击菜单插入模块，在代码窗口中输入自定义函数： Function GetDupChars(rRng As Range) As String Application.Volatile Dim i As Integer, j As Intege...

在Excel 2007/2010中设置图标集条件格式时，通常是同时对区域中的全部单元格进行设置的。但有时也有例外，如下图中C2:C1000区域中的各单元格的值为同行A列与B列的差值，需要在C列中设置图标集： 要求如下图： 在这种情况下，由于C列单元格中的图标集仅仅与其他列中的单元格值有关，而与本列中的其他单元格无关，因而无法直...

有时需要在工作表的页眉或页脚中显示最后修改的日期和时间，在Excel中可以用下面的VBA代码来实现，步骤如下： 例如在页眉的中部显示工作簿最后保存时间，按Alt+F11打开VBA编辑器，双击工程窗口中的ThisWorkbook，然后在代码窗口中粘贴下列代码： Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Bo...

如果要在Excel中将单元格内字符串中的重复字符去掉，重复的字符仅保留一个，如将字符串1232345667变成1234567，可以用自定义函数实现。 步骤如下： 1.按Alt+F11，打开VBA编辑器。 2.单击菜单插入模块，在代码窗口中粘贴代码： Function RemoveDupChar(theString As String) As String Dim i As Integer For i = 1 To Len(t...

在Excel中选择某个单元格后，在编辑栏中会显示单元格内的公式，但编辑栏内不可能同时显示多个单元格中的公式。反复按快捷键Ctrl+`（`位于数字键1的左侧），可以切换显示工作表中的所有公式，但无法同时显示公式的计算结果和公式本身。复制某个单元格内的公式，然后将其粘贴到其他单元格中，并在=号前添加一个英文单引号，...

有时需要在Excel中将某个多行多列的区域转换到一列中，下面的VBA代码可以实现这个目的。 1.按快捷键Alt+F11，打开VBA编辑器，在右侧代码窗口中粘贴下列代码： Sub RangeToOneCol() Dim TheRng, TempArr Dim i As Integer, j As Integer, elemCount As Integer On Error GoTo line1 Range(a:a).ClearContents If Selection....

有时我们需要让Excel窗口总是显示在最前面而不被别的窗口挡住，虽然Excel并没有提供这样的功能，但可以用下面的方法： 方法一：使用软件 能够实现让窗口总在最前面的软件非常多，例如前台小精灵2.0就是这样一款绿色的免费小软件，它能让任意窗口始终在最前面，可以到华军软件园的相关页面下载（单击 这里 打开下载页面）。...

有时需要让Excel工作簿中的每个工作表只能查看而不被修改，可以对所有的工作表进行保护，如果工作簿中的工作表数量较多，手动逐一操作十分繁琐。在工作表保护密码相同或不设置密码的情况下，用下面的方法可以快速保护所有工作表。 1.按Alt+F11，打开VBA编辑器。单击菜单视图立即窗口，或按Ctrl+G打开立即窗口。 2.在立即窗...

Excel中的条件格式可以非常直观地显示某些特定的数据，功能十分强大。但条件格式也有一些限制，例如无法通过条件格式设置字体和字号。如果要根据条件来改变单元格中字体或字号，可以用VBA来实现。下面的VBA代码将指定区域（H2:H500）中大于5000而小于10000的数值设置为黑体、16，而将指定区域中其他单元格的字体和字号设置...