代码小白，请问各位大佬如何用宏删除一个工作簿中所有工作表中的空行，只能一个一个删吗，工作表很多，而且后面还有其他的代码，这一段不成功，后面也没法进行。。。工作量太大了。。。 感谢感谢！

EXCEL自定义函数 迭代计算 悬链线索长

dimnewdocx as string newdocx="...\...\filename.ext" Set a = fs.CreateTextFile("D:\testfile.txt", True) a.WriteLine

对于正则表达式：(\-\+)?\d+\.?\d* 假设数据是: 3.33 3.333 33.33 33.333 333.33 333.333 此正则表达式都能匹配成功。 我的目的是，3.33、33.33、333.333等小数点后超过2位的跳过去，不要

例如，excel的A列包含下面5行数据 1.sq:oy<目标15，完成21>(完成率140％)[已完成]/ 2.qj:cn<目标48，完成37>(完成率77.08％)[即将完成]/ 3.sx:gyf<目标10，完成7>(完成率70％)[即将完成]/

Sub 长图打印() '全文设置为 单倍行矩，首行顶格============================= Selection.HomeKey Unit:=wdStory, Extend:=wdExtend With Selection.ParagraphFormat .LeftIndent = CentimetersToPoints(0) .RightIndent = CentimetersToPoints(0) .SpaceBefore = 0

在日常办公过程中，是不是经常听别人说：“按住右下角，往下拖到底……”，这是什么概念呢？在Excel中，我们在第一个单元格内写好公式，把鼠标放在单元格右下角黑色方块上，按住并拖动鼠标，可以将下面任意多行按第一个单元格内的公式执行计算，比如有以下一个表，要求分别求出第2行至第7行两个加数的和。对了，很多小伙伴都知道，在C2单元格填入=A2+B2当然，有的小伙伴还知道，填完之后按住右下角...

在我们日常工作中，有时需要将一些数据按照一定格式制作一个文本，以便数据的传递和处理。比如，有以下一张表：　　我们要把工人生产情况导入考核系统，但系统只接受以下格式的文本：流水线|工号|姓名|生产数量流水线|工号|姓名|生产数量流水线|工号|姓名|生产数量流水线|工号|姓名|生产数量……　　这时，我们怎样才能把上面的表快速转换为系统接受的格式呢？简单说来，一共...

单位要采购一批文具，具体清单如下：文具店老板提供了一份价格表：如果想计算一下采购这些文具需要申请多少资金，该怎么办呢？有的朋友可能擅长FCV大法……Ctrl+F、Ctrl+C、Ctrl+V……如果像我发的这个，只有很少几种，FCV大法真是超级好用，如果像下面这种情况呢？这个时候，就该让vlookup出场了！我们可以在Excel中按F1调出帮助文档，查找VLOOKUP，能找到以下内容：VLOOKUP(lookup_value, table_array, col_index_n..

要替换的内容不包括括号或者书名号内的内容，代码要怎么写，请高手指点

[图片]

请问函数参数传递怎么写？ 在函数hanshu_1里，将A7单元格区域放入一个数组，假设，“A7”放在F1单元格里（即要将一个动态的单元格区域放入数组），请问，调用hanshu_1函数时，参数如何写？谢谢！ 1.调用： Call hanshu_1(Sheet1.Range("A7")) 2.函数： Sub hanshu_1(dyg As Range) ... arr0 = dyg.CurrentRegion.Value ... End Sub

excel vba 可以把excel 做为平台进行编程，编程快捷但代码的安全性低，打开EXCEL alt + f8 就可看到代码，如何进行封装让它成为可执行的程序，无法看到代码。请高人指教。

Private Sub ThisAddIn_Startup() Handles Me.Startup wdApp = Globals.ThisAddIn.Application Globals.ThisAddIn.Application.KeyBindings.Add(WdKeyCategory.wdKeyCategoryCommand, "去自动编号", Globals.ThisAddIn.Application.BuildKeyCode(WdKey.wdKeyAlt, WdKey.wdKe

定义： ''' <summary> 定义 Excel </summary> Private _xlapp As New Excel.Application ' With {.Visible = True} ''' <summary> 定义工作表 </summary> Private _xlbook As Excel.Workbook = _xlapp.Workbooks.Add() 退出： ' 不保存关闭表格 _xlbook.Close(False) '

如题： 表格中有多个SHEET，想用一个VAB，当在“编辑框”中输入某一个单号，点击“按钮”后，可以直接删除某个sheet的某一行。 我现在操作是，在每一个sheet中Ctrl+A，后Ctrl+F。如果搜到了这个单号，就删除这一样。如果这个sheet中没有，那么就换下一个sheet，继续这样的操作。感觉很麻烦。