VBA遍历工作表以删除空列
VBA（Visual Basic for Applications）是一种用于自动化任务和宏编程的编程语言，广泛应用于Microsoft Office套件中的各种应用程序，如Excel、Word和PowerPoint等。VBA可以通过编写代码来操作和控制这些应用程序，提高工作效率和自动化处理。
在Excel中，遍历工作表以删除空列是一种常见的需求。下面是一个完善且全面的答案：
概念： 遍历工作表以删除空列是指通过VBA代码自动扫描工作表中的每一列，检查列中的数据是否为空，如果为空则删除该列。
分类： 这个操作属于Excel VBA的数据处理和操作类别。
优势： 通过VBA遍历工作表以删除空列，可以快速、自动化地清理数据，提高数据处理的效率和准确性。
应用场景：
- 数据清洗：在数据分析和处理过程中，经常需要清洗数据，删除空列是其中的一项常见任务。
- 数据导入：当从其他数据源导入数据到Excel中时，可能会出现一些空列，通过遍历工作表以删除空列可以清理这些无效数据。
- 数据整理：在数据整理和报表生成过程中，删除空列可以使数据更加整洁和易读。
推荐的腾讯云相关产品和产品介绍链接地址： 腾讯云提供了一系列云计算产品和服务，以下是一些与Excel VBA相关的产品和服务：
- 云服务器（CVM）：提供可扩展的虚拟服务器，可以在云上运行VBA代码。产品介绍链接
- 云数据库MySQL版（CDB）：提供高性能、可扩展的MySQL数据库服务，可以存储和管理VBA代码中的数据。产品介绍链接
- 云函数（SCF）：无服务器计算服务，可以用于执行VBA代码的自动化任务。产品介绍链接
请注意，以上推荐的腾讯云产品仅供参考，具体选择应根据实际需求和情况进行评估和决策。
相关·内容
2回答
我有一个工作表，其中包含了大量的数据和列，所以我无法手动完成它。
我在这里搜索了一些答案，但只有在特定列为空的情况下才找到删除行的方法，但我希望任何一列都是空的。
有人能在VBA里教我怎么做吗？
浏览 2提问于2014-05-28得票数 0
回答已采纳
我有一个excel工作表，其中有一个有两列和可变行数的表。其中一些行将被填充，而一些行将为空。列B包含一些值，A列在每个单元格中都有下拉列表。
我希望如果列B单元格有一些值，那么相邻的A列单元格应该在下拉列表中显示3个选项--修改、添加、删除，当B列单元格为空时，相邻的A列单元格应该只在其下拉列表中显示一个选项- ADD。可以使用VBA或excel公式来完成吗？
请不要将其与基于下拉选择的单元格值更改混淆。正好相反。
浏览 0提问于2018-10-10得票数 0
回答已采纳
我正在运行一个VBA代码，将列的值复制到另一个工作表。
示例如下图所示：
我的代码是：
inputWS4.Range("G2:G" & LastRowFLBlue).Copy outputWS.Range("B" & LastRowGeovera + (lastRowUniversal - 2) + LastRowCitizens)
这段代码将G列复制到我的"outputWS“工作表的最后一行，该工作表已经有来自其他工作表(Geovera、通用和公民)的数据。
代码的问题是它还会复制空白单元格，而我不想这样做。
我还想复制D和P列中
浏览 2提问于2017-10-03得票数 1
我使用VBA将信息输出到一个Excel工作表中，该工作表是从名为"PHB“的Server数据库中收集的。我可以通过调用一个视图连接到数据库并提取信息。
当我将数据转储到Excel工作表中时，会包含数据库数据的列标题，我不想这样做。我必须使用偏移量来使数据看起来正确。我可以使用VBA操作结果工作表并删除列。如果有一些开关，我可以使用任何一个(VBA或T)终端，这似乎是一个更干净和更简单的方法。
以下是我的逻辑的相关部分：
Public Sub Show_ProductCode()
Dim PHB_cnn As Ne
浏览 4提问于2020-11-15得票数 0
回答已采纳
对于以下情况，我需要编写一个简短的VBA脚本。工作簿包含多个工作表。第一张表是汇总表。在摘要工作表之后，包含我想要在摘要工作表上显示的信息的工作表数量是不规则的。信息总是在“B栏”中。脚本应复制每个工作表的“B列”，并将其粘贴到汇总表中的下一个空列。换句话说，它应该复制“Sheet 2”中的“column B”并将其粘贴到“Sheet 1”中的下一个空列，然后复制“Sheet 3”中的“column B”并再次粘贴到“Sheet 1”中的下一个空列，依此类推。
非常感谢您的帮助，谢谢！
浏览 1提问于2015-06-07得票数 0
1回答
我仍然是VBA的新手，我对如何解决这个特定的问题有点迷茫。
我在一个工作簿中有多个工作表。目标是根据列标题从每个工作表中复制数据，因为并非所有的列标题在所有工作表中都是一致的。
对于ex：
主表有6个列标题，我想拉。
工作表1有8个列标题，其中某些列的值为空。
图纸2有7个列标题。
表3有10个列标题，等等。
我的目标是转到每个工作表，让它循环遍历每个列标题，如果列标题匹配，则将数据复制/粘贴到主表中。
我不知道如何让它查找最后一行，并根据标题复制整个列。
下面是我拼凑的代码示例：
Sub MasterCombine()
Worksheets("Master").Activa
浏览 2提问于2018-11-30得票数 0
我是一个新手在VBA，我将感谢任何帮助。
我在使用VBA代码的excel工作簿中有以下按钮
Sub New_sheet()
Dim x As Integer
x = InputBox("insert number of new sheets...")
For numtimes = 1 To x
'Loop by using x as the index number to make x number copies.
'Replace "Sheet1" with the name of the sheet to be co
浏览 0提问于2017-07-17得票数 0
因此，我正在尝试编写VBA代码，以便在某一列的某一行中的单元格为空时删除Excel中的整行。我对VBA完全是个新手，所以我只能在编程的时候学习。我想我已经掌握了方法，但它总是在工作表中的特定列中留下最后一行空白。在某些情况下，它会在该特定列中留下5行空白。任何帮助修复的人都将不胜感激，谢谢！ 我还想让它在我可以点击工作簿中的按钮的地方，很可能是在一个单独的工作表上，它将为特定的工作表执行删除行的方法。如果可能，我是否能够将所有方法从一个工作簿移动到另一个工作簿？ 我已经尝试过使用VBA实现这两种方法，但这是我第一次使用VBA，因此许多方法对我来说仍然是新的。 Private Sub Butt
浏览 26提问于2019-04-12得票数 0
回答已采纳
1回答
我已经成功地使用vba将excel工作表导入到称为tblData的访问表中，但是excel工作表中有一些空单元格，我需要将列F1中的那些字段更改为charecter "H“。我擅长于使用excel vba，但是我对vba的访问还很陌生。
浏览 1提问于2016-05-23得票数 0
回答已采纳
1回答
使用新行更新表
、、、、
我有一个3500+行表，每周删除250行旧行，然后添加250行新行，比如在星期天。在整个一周的过程中，列Y和Z用于编写评论(Y通过下拉框)。这些注释将保留在关联的行中。
我的问题是用新的250行更新表格。新行将作为新表释放(因此混合在未删除的3000行中)。之前，我将所有数据复制到另一个工作表中，执行vlookup，然后复制并粘贴旧表。有没有更好或更快的方法？打开以使用VBA/宏。
提前感谢
浏览 0提问于2018-06-14得票数 0
我有一些用特定文本填充excel表的vba代码。我希望在代码中添加一个函数，用于在一列为空(不存在文本字符串)时删除该列(以及标题)。我已经搜索了一些代码，但没有一个能够工作。有什么建议吗？
浏览 0提问于2017-11-14得票数 0
我希望构建一个VBA来删除access中的整个表行，如果某个列是空的，让我们调用该列"services“。这将在一个循环上运行，因此在任何时候添加数据，它都会检查，如果可能的话。如果发生任何变化，我将在另一列中使用自动生成的ID。提前感谢
浏览 9提问于2022-07-01得票数 0
我有多个Excel工作表，其中日期在B列中。我使用以下VBA代码块打开屏幕上显示今天日期的工作表。
Private Sub Worksheet_Activate()
Dim d As Date, i As Long
d = Date
ActiveWindow.ScrollRow = 1
For i = 16 To Cells(Rows.Count, "B").End(xlUp).Row
If Cells(i, "B").Value = d Then
Cells(i, "B").Select
浏览 1提问于2018-11-17得票数 1
有以下问题。更有可能被VBA代码解决，但由于我是VBA的新手，我不知道如何解决。
我有下表
我正在将公式放入单元格F2中，如下所示，以求出冗余值，并最终删除它们。
IF(COUNTIF(B2:E58,A2)>0,"YAHOO","Not Present")
我的目标是自动删除这些冗余值，而不是手动删除，方法是删除单元格或删除内部的值。
我在网上查过了一些解决方案，包括帮助者列或中间表，还有一些是VBA。我查看了helpers列，但是我不知道如何通过helpers列自动删除我的值。
欢迎任何建议。
提前谢谢。
编辑(第一次拍摄)：
感谢唐的帮助，但
浏览 2提问于2014-06-30得票数 2
回答已采纳
1回答
我有一个Excel工作表，其中有一列具有复选标记或空白透明图像的形状(图像)。这是为了确定是或否。如何在VBA中比较一个形状以查看它是否与另一个形状相等。
由于我将在代码中完成所有这些操作，因此我需要根据单元格中的形状/图像来确定行/列是yes还是no。
浏览 2提问于2013-11-04得票数 0
我有一个大的数据表，40列x10000行，我想在一个新的表中删减，可以导出到csv文件。
主要数据表的相关标题如下：
列表/片段-组(未订阅的)
新表格希望填充列:段、组、电子邮件、姓、名和移动号码，如果“列表”等于值(在本例中为“摩托车销售”)，“未订阅”不等于-1，“电子邮件”不是空的。
起初，我尝试了vlookup，但似乎只有当"List“列中的所有内容都是唯一值时，这才有效。在我的例子中，他们有许多“摩托车销售”记录。
我还尝试了一些示例VBA代码，这些代码确实填充了新的工作表，但是这需要花费很长时间，并且经常会导致excel崩溃。我也想不出如何添加我所需要的条件。
我的示例代
浏览 4提问于2015-03-19得票数 0
我的代码有一个问题，那就是所有东西都工作得很好，只有一行在工作表存在的情况下仍然会出现自动化错误。我的代码应该删除基于某个名称列的工作表，尽管对其进行了编辑，但仍然出现错误。如果有人能帮我的话我会很感激的，谢谢！
Sub DeleteSelectedSheets()
Const lngNameCol = 8 ' names in column (H)
' lngRow = 5 ' data start in row 5
Dim i As Long
Dim lastrow As Long
Dim row_num As Long
Dim wsh_to_delete A
浏览 47提问于2018-08-01得票数 0
回答已采纳
1回答
需要一些建议，我有一个很大的excel表，我需要用B列中的一个值来分解。在某些情况下，我需要更多来自B列的值。我有另一个工作簿，它有这个映射。我被困在一个最好的工具为这项工作和2如何。
在Excel中，我不知道如何使它工作。我知道我需要一个循环来遍历列表，但是我如何处理那些需要合并的循环呢？
在access中，我考虑的是数据的表和包列表的表。创建一个查询并使用VBA将值循环到查询中。
浏览 3提问于2013-10-16得票数 0
回答已采纳
我有一个带有10+工作表的工作簿，我需要删除每个工作表中的第一列。
我想知道是否有人知道一个简短的VBA宏可以为我做到这一点，而不是手工操作？
谢谢!
浏览 3提问于2015-07-15得票数 0
回答已采纳
3回答
我有一个包含A和B列的excel工作表，我需要合并这些列，并将结果用逗号分隔。例如：
Column A | Column B
1 2
会变成
Column C
1,2
如果可能的话，我希望用VBA或者由VBA执行的excel公式来完成。
浏览 2提问于2014-08-28得票数 0
回答已采纳
我刚刚开始在excel中使用VBA，并试图创建一个用户表单，其中我从活动工作表中选择数据(一旦复制包含该表单的工作表，用户表单将被复制，所有引用都应该是对活动工作表的引用)：
用户表单被命名为"SystemDesignUserForm"the实际表，其中包含它被命名为“系统设计” ComboBox被命名为"DIAComboBox“，并将包含在单元格”w6:w33“中的数据列在”w6:w33“中。
我试着用密码：
DIAComboBox.List = Range("W6:W33").Value
也和
DIAComboBox.List = ActiveShe
浏览 3提问于2020-02-19得票数 0
我有一个Excel工作表，其中包含从工作簿中的另一个工作表中提取的数据创建的一组图表。在每个月开始时，当我将上个月的数据添加到数据工作表中时，我将所有数据都移到一列上，使得上个月的数据现在在O列中，上个月的数据总是在P列中。问题是，我希望带有图表的工作表总是绘制当前的“上个月”(总是P栏)，但它“聪明”到可以重新配置图表，以继续绘制它所绘制的数据(即前一个“上个月”)，而该图表现在在O栏中。
具体来说，我想要改变(例如)
=SERIES("Visits",Data!$D$4:$O$4,Data!$D$4:$O$4,1)
至
=SERIES("Visits",Da
浏览 4提问于2011-10-10得票数 2
1回答
我正在编写下面的VBA代码，以便根据特定单元格中指定的文本更改单元格的颜色。我已经让代码在活动工作表中工作，但当我运行我的代码时，它会删除我在原始电子表格中的所有颜色(不知道为什么)。我只想将此代码应用于我的表中的某些列。EX仅在第12- 1000行之间的列P和Y中更改这些值的颜色...
下面是我使用的代码：
Sub changeColor()
Dim itm As Range
Application.ScreenUpdating = False
ActiveSheet.UsedRange.Offset(1).Interior.ColorIndex = xlColo
浏览 5提问于2020-02-19得票数 0
1回答
我正在尝试设置一个包含许多空单元格和许多列的工作表。
基本上，我想要过滤一列，并根据过滤后的值，隐藏在被过滤的相应行中具有空单元格的列。
下面我有一个例子。我们将工作表称为“任务列表”？所以基本上，如果我在B列中过滤Eric，那么C，E，G，H列应该是隐藏的。然后，取消过滤应该取消隐藏这些列。
我对VBA没有太多的经验，但它似乎是一个基于工作表vba的解决方案？
谢谢你们。
浏览 1提问于2019-03-19得票数 0
我有一个包含多行ID的工作表。
我想知道编写VBA过程的最佳方法，该过程将查看一列中的值范围，并仅用该范围中出现的唯一值替换整个范围。因此，1000个ID的列可能会减少到150个唯一ID的列。我不希望此过程影响工作表中其他列中的数据。
所以，假设初始列A是：
*IDs*
ID12
ID12
ID34
ID56
ID78
ID78
ID78
我希望它用一个新的列A替换该列：
*IDs*
ID12
ID34
ID56
ID78
非常感谢。
注意:我知道如何通过几种不同的方式手动完成此操作，但我希望对工作表上的每个非空列循环执行此过程，并且这些列的长度各不相同。
浏览 2提问于2013-02-11得票数 1
我希望将这个具有人类可读性的表转换为一个长表，例如通过一个包含“A”和“B”的“属性”列，或者在PowerBI中将它们分割成多个工作表。“分隔符”始终是空列。
浏览 0提问于2020-07-14得票数 0
2回答
新的VBA和我试图从本质上查找表中的列标题到另一个和如果匹配复制数据通过.
我被告知可以将头存储在字符串数组中，然后循环遍历并将头与数组进行比较，以确定它们是否匹配。
ie: For each c In
Sheet1.Range("A1:BA1").offset(rownumber -1)
但我不知道那是什么意思？如何将标题存储在字符串数组中？如果这是一个超级基本的问题，很抱歉。我在谷歌上搜索过，没有找到任何解释如何做这件事或它意味着什么的东西。
我的项目:关于sheet1的研究数据。如果存在问题，我希望单击一个按钮，该按钮将只将匹配的列数据复制到指定工作表中的新行。从那里将检
浏览 0提问于2015-01-20得票数 2
回答已采纳
我在同一个工作表'Sheet1‘上有一个带有多个表的工作表，该工作表由空白行分隔。
我要VBA一个一个地分类。
注意事项
每个表有不同的行数。
将来，列的数量也会发生变化。
永远一样的是：
B列中表之间的空白行是excel识别新表的起点。
每个表将始终按C列排序
为了给您一个更好的图片，我正在查看消费者数据交叉标签，其中：
列A是问句类型
B栏是答案选择
列C的标题是“总计”，它包含每个回答选项的%
其余的列跟%类似C，但是有不同的标题，如“男性”、“女性”、“用户”、“非用户”、“18-25岁”、“年龄26-34"....etc。
我想
浏览 1提问于2017-01-23得票数 0
回答已采纳
我在excel中有两个表Sheet1和Sheet2 .Sheet 1有列C1，C2，C3，C4，C5。表2有列C1，C2，C3。现在我必须执行3个操作。
1.)删除Sheet2的第1列中找不到第1列的值的Sheet1中的所有行。
2.)将工作表2的C2，C3的值替换为工作表1的C2，C3 (C4，C5保持不变)，其中工作表1的C1的值与C1的Sheet2匹配。
3.)将工作表2的C1、C2、C3数据追加到工作表1中，其中工作表2中的C1的值在C1 of Sheet1中找不到(C4、C5将为空)。
我会写操作1的VB代码。请帮我写操作2和操作3。
Sub delete_selected_rows
浏览 0提问于2016-12-25得票数 1
我已经设置了一个VBA宏，它在给定Excel文件的每个电子表格中连续运行VBA操作。考虑到文件中有许多工作表，这会导致服务器偶尔中断，所以我不得不每隔一段时间重新启动请求。
因此，问题来了:我希望以VBA宏开始在当前选定的工作表/选项卡上运行的方式修改下面的代码元素。然后，它将连续覆盖活动工作表右侧的所有剩余工作表/选项卡，但不包括已填充的左侧工作表/选项卡。
下面的代码使用文件的第一个工作表/选项卡重新启动宏的每一次运行，这是不必要的。对代码有什么聪明的调整吗？
Dim xsheet As Worksheet
For Each xsheet In ThisWorkbook.Works
浏览 4提问于2019-01-19得票数 2
回答已采纳
1回答
我正在尝试基于单元格值(可以为空或0)使用VBA隐藏多个列。这些单元格有一个数组查找公式，我认为它是通过VBA停止正常列隐藏的功能。例如，有40列，最多6列，其中包含通过VLookup数组从另一个工作表获得的值。包含值的6列可以是VLookup中的40列中的任何一列。
浏览 88提问于2019-09-10得票数 0
2回答
对于我的工作表，我编写了一个VBA代码来隐藏一些选定的列。隐藏这些列之后，我想标记一行并为其上色。在那之后，我想要取消隐藏列，这样我就可以回到我的原始工作表，但选择的行是全彩色的。
VBA工作得很好。我的问题是，当我选择一行(单击行号)并为其着色时，当我取消隐藏列时，隐藏在列中的那些行的单元格不会着色。
即使宏隐藏了一些单元格，是否有可能对整行进行着色？
谢谢
浏览 2提问于2018-05-29得票数 1
我在工作表中有10列，每个工作表都有在名称框中定义的指定ID。如何使用VBA将ID存储在Array中。
附注：我不想存储列标题。我想要存储它们的ID，这些ID在每个列的名称框中定义。
浏览 2提问于2016-04-08得票数 0
回答已采纳
我需要vba代码在Excel中转换公式到它的值，但只在特定的列和只转换到最后一行数据
示例:表1列B，E:J填充了查找公式以从表2获取数据。公式从第1行填充到1500。基于表2中的表数组。表1行1到1000返回查找结果。我需要将列B，E:J行1到1000公式转换为值，而行1001到1500仍具有查找公式
通过互联网搜索，我可以使用这个代码...
Sub FormulaToValue()
Dim N As Long, rng As Range
N = Cells(Rows.Count, "A").End(xlUp).Row
Set rng = Range(Cells(1, 1)
浏览 0提问于2018-03-20得票数 0
1回答
此vba用于在工作表YYYY的J列中输入col与col之间乘法的结果，但当我单击vba按钮时，J列仍为空(从J列的第2行复制公式)。任何关于如何解决这一问题的想法都将不胜感激。
With Sheets("YYYY")
With .Range("J2", .Cells(.Rows.Count, "J").End(xlUp))
.Formula = "=I2*G2"
.Value = .Value
End With
End With
浏览 3提问于2017-05-22得票数 1
回答已采纳
1回答
如何在VBA中将工作簿中所有工作表中的空单元格替换为0或空白(“")？
假设我有一些包含文本的列和包含数字的列：
Text Integer
AA 3
BB null
null 9
DD 6
EE null
在上面的示例中，如果相邻的列单元格是数字，并且所有相邻的列单元格都是文本，我想用0替换空单元格(“")。
浏览 0提问于2012-01-25得票数 0
回答已采纳
我需要从大约50个Excel工作簿中提取数据。我需要从特定的单元格，特定的工作表中获取数据，并编译成一个数据集(最好是另一个excel工作簿)。
我正在寻找一些VBA，以便我可以将结果编译到我用来运行代码的工作簿中。
因此，我需要从其中一个xls或xlsx文件中提取数据，工作表(“DataSource”)，我需要计算单元格(D4)，如果它不为空，则从单元格(F4)中提取数据，并将其放入编译后的数据集中的新行中。循环通过该文件夹中的所有Excel文件，如上所述。
如果可能，我希望第一列中的第一个数据字段是从结果数据集中提取数据的文件的名称。
有人能帮我一下吗？我正在寻找VBA，因为我对它更熟悉，
浏览 2提问于2011-05-02得票数 11
回答已采纳
3回答
我想在许多工作表(33 omg)上进行迭代，在每个工作表上使用范围为A1-A260的A列进行迭代，并查看单元格是否为空。如果不是空的，将其复制到工作表“摘要”中A列中的下一个空单元格中。这是我写的代码。
Sub WorksheetLoop()
Dim WS_Count As Integer
Dim I As Integer
Dim sheetName As String
WS_Count = ActiveWorkbook.Worksheets.Count - 1
For I = 1 To WS_Count
sheetName = ActiveWorkbook
浏览 0提问于2015-07-21得票数 0
回答已采纳
1回答
我在一张表中有700列。我想删除其中的650多个。如果我使用range作为A:W或者更多，我会得到400 Error。
有没有限制。在VBA中删除列的百分比。
浏览 0提问于2019-06-19得票数 1
3回答
我对使用VBA有点陌生。我有一个数据表，它从我使用的程序中提取数据，并通过Microsoft查询进行筛选。有一列我无法排序，所以我需要使用if和语句来删除不需要的数据。我想出了这个if语句，它突出了我想要删除的行，但是我不知道如何将它放入VBA中。
=IF(L5="Program",L6<>"lathe"),"2","")
基本上，我希望VBA查看L:L列。如果cell=program和下面的单元格不等于车床，我希望删除上面的行。如果单元格不相等，则继续查找直到数据结束。
浏览 7提问于2016-10-07得票数 0
回答已采纳
我已经成功地编写了使用循环将工作表中的单元格值插入到SQL表中的代码。原始工作表中有未使用的列、未使用的行和不正确的标题，这些已由VBA代码管理，现在数据库正在关闭，我们希望使用csv文件将数据上载到另一个数据库。使用什么代码打开csv文件并逐个插入数据单元格？
浏览 0提问于2020-01-17得票数 0
碰壁了&我跑到这里寻求帮助。
可以检查给定mysql表行中的字段是否为空吗?不可以，我不想按每个列名检查(如果可能，使用单行sql )。
我会再详述一些：
假设我有一个表，其中包含列t1_col1、t1_col2和...
所以我想知道这些列中是否有空的。
如果我有另一个包含列t2_col1、t2_col2和..的表。
我想使用相同的sql语句来检查这些列中是否有任何列是空的。
我没有尝试任何东西，因为我不知道要尝试什么，我知道可以通过检查列是否为空来实现这一点(如果知道列名，也就是说，我也知道表的列名可以通过mysql的“show column”找到)。所以这不是我想要走的路。我想知道
浏览 3提问于2013-03-07得票数 0
回答已采纳
2回答
我是新来的，所以请原谅我，如果我没有正确地张贴这个。
我有一个Excel文件，其中包含各种工作表，其中有些被命名为V1，V2，.可能达到最大的V15。
我在“工作表名”单元格B2:C16中有一张表
列B包含当前工作表名V1-V15。
列C包含新的工作表名称/标签。
您能提供一些VBA代码来将当前名为V1的工作表重命名为新值吗？
我在从列表中命名工作表的基础上发现了很多东西，但没有使用vlookup样式。
Sub RenSheets()
Dim i As Integer
For i = 2 To Worksheets.Count
Sheets(i).Name = Sheets
浏览 3提问于2015-10-30得票数 1
回答已采纳
试图用我需要的数据将excel工作表转换为csv。基本上，我只需要导出包含数据的列。我对使用vba宏非常陌生。我制作了一个工作表，其中的单元格链接到A:AF列中第一行的组合框上。问题是，当我试图将工作表直接保存为csv或使用下面的宏导出时，这些与组合框链接的单元似乎被视为数据。第一个(列标题/变量名称)行的示例，然后是我理想中在导出的csv中看到的一个观察的第一行示例：
Author,Year,Yield,Treatment
Smith,1999,2.6,notill
Author...Treatment行最初来自验证列表中的选择，受限制的单元格链接到组合框，而Smith...notill观察
浏览 14提问于2017-08-04得票数 1
回答已采纳
ActiveSheet.Range(cells("$2", "$A"), cells("$" & CStr(mowz), "$Q"))._
RemoveDuplicates
Columns:=Array(1, 2, 6, 7, 8, 9), Header:=xlYes
这是我录制的宏，并用它在excel 2007 vba.But中删除重复项我得到了一个新任务solve.That是我必须删除重复的行，当且仅当它的"Rth“列中有值2，否则它不应该删除它，即使它是重复
浏览 0提问于2011-08-16得票数 0
回答已采纳
我正在编写Python3.7.2脚本，以检查Excel文件中未使用的工作表，我需要一种方法来确定当前工作表是否不包含任何值。以前，当我在VBA中编码时，我会找到最后使用的行列和最后使用的列来检查工作表是否“空”，但是openpyxl中的max_column和max_row函数考虑了非值数据，比如我想忽略的格式化。是否有任何方法检查给定工作表中是否没有任何单元格包含任何值？
以前，当我在VBA中编码时，我会找到最后使用的行列和最后使用的列来检查工作表是否“空”，但是openpyxl中的max_column和max_row函数考虑了非值数据，比如我想忽略的格式化。
理想情况下，我可以像以前在VBA
浏览 1提问于2019-01-18得票数 1
回答已采纳
我正在尝试将Excel文档上载到Access。我已经使用VBA取消隐藏所有列和行，然后删除不使用的列和行。除了一个工作表之外，所有工作表都会正确上载到Access中。此特定工作表尝试上载一个字段并将其标记为字段12。我找不到删除此字段的方法。有什么帮助吗？
浏览 7提问于2014-06-26得票数 0
3回答
我是VBA的新手，所以请不要过于苛刻。话虽如此，下面是我对Range.Find的问题。
我有一个包含"https“链接到图片的列的交叉表；我有一个工作的VBA来将这些链接转换为该列的每个单元格中的实际图片。然而，我的问题是，当我在交叉表中添加另一个列或移动列时，我的VBA停止工作，我的链接没有实际的图片(因为图片代码被设置为我的链接所在的初始列)。
我认为应该有一种方法通过使用Range.Find使其更具动态性。我设法在Range.Find上找到了信息，但我的代码无法工作。有没有人能帮上忙？
代码如下：
Function picRng() As Range
Set picRng
浏览 3提问于2017-09-14得票数 1
我正在使用Excel 2016，我是VBA的新手。我需要编写VBA代码来删除Excel工作簿中所有工作表的特定列。
让我们假设我需要删除的列是所有工作表的列B, D, G, H, AM, AZ。
我怎样才能做到这一点？
浏览 0提问于2018-05-08得票数 0
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
即时通信 IM
对象存储活动推荐
腾讯云开发者
