这段代码是在其中一个线程上找到的。所有与代码相关的东西都是有用的，只有一个例外，那就是在代码执行之后，数据会向上移动。我希望行A到F应该是空白的，并且数据不会向上移动。尝试从代码中删除Shift:=xlShiftUp，但仍然在源文件(Sheet1)中向上移动数据。("A" & .Rows.Count).End(xlUp))
Set Target = Source.Fin
浏览 42提问于2020-06-21得票数 0
1回答
我需要可视化的数据，但它与每5秒的记录太尖锐，所以我想把时间序列从每5秒到每5分钟！所以我需要删除60 row并保留61th，然后删除下一个60并保留121等等. Rows("3:61").Select
浏览 2提问于2012-09-24得票数 1
回答已采纳
2回答
这些数据是从枢轴表中提取出来的，因此行的长度可能会有所不同。我有我的公式可以从贯穿130行的枢轴表中拉出。我要做的是删除A和B都是空的或C和D都是空的任何单元格。不幸的是，它只是删除一些多余的细胞，然后停止。下面是我目前正在使用的代码(任何建议都将不胜感激) If Cells(i, 1) = "0" And Cells(i, 2) = "0" Then
浏览 5提问于2016-08-12得票数 1
回答已采纳
我有一些报告需要修改，删除一些特定的单元格，例如背景中的空白单元格或高光。这是我希望得到的这是我的录音宏 Selection.Delete Shift:=xlToLeft
浏览 2提问于2022-11-25得票数 0
回答已采纳
我有一个代码，它查看列K，检查是否有0，如果有，它删除从C到K的相应行。.Delete Shift:=xlUp sh.Cells(i, "G").Resize(1, 2).Delete Shift:=xlUp
sh.Cells(i, "F&q
浏览 28提问于2020-02-12得票数 1
回答已采纳
2回答
如何删除只包含A列中公式的所有行？我需要删除它，这样我就不会在选择范围或录制宏时出现问题。Rows("720:720").Select Selection.delete Shift:=xlUp ActiveSheet.Range("$A$1:$L$
浏览 3提问于2016-04-01得票数 0
回答已采纳
2回答
在这种情况下，宏需要根据条件删除行。我还想在右边放置一些指令和一个用于宏的表单控件按钮，但似乎每次激活代码时，它都会删除该行中的所有内容，包括我所做的指令和按钮。在循环中，继续检查和删除行。
我该在哪里定义范围？三种不同的逻辑，还是一次在上面？任何帮助都将不胜感激。曼尼
浏览 0提问于2018-08-30得票数 0
2回答
我想按以下顺序执行此函数：我尝试过使用自动筛选进行宏录制，但它只删除指定范围内的行(如果我使用其他数据集，可能会有所不同)。VBA，如下所示。
浏览 1提问于2015-02-28得票数 1
我有一个宏，根据项目#(A栏)删除垃圾销售。从下面的代码中可以看到，有很多垃圾(需要删除的行)项目号以"40-xxxxx“开头。我希望组合这些循环，以便宏将删除以"40-xxxxx“开头的所有项目#s，但 "40-00017”和"40-00004“除外。Left(sItem, 8) = "40-00087" 'labor-annual refinish Selection.D
浏览 4提问于2017-10-09得票数 0
回答已采纳
2回答
我有一个从A1到T1的1000行20列的excel Sheet1。该范围内的每个单元格都有一些数据，通常是一两个单词。在Sheet2中，A1列中有一个包含1000个值的数据列表。我正在使用VBA脚本从Sheet1的Sheet2列表中查找单词，并清除找到的单元格的值。End With .Range("A1").Insert
浏览 0提问于2013-01-13得票数 1
回答已采纳
我想将单元格"A1“中的所有行删除为"ActiveCell.Address”Range(" A1:ActiveCell.Address").Delete Shift:=xlUp提前谢谢。
浏览 2提问于2015-10-20得票数 0
回答已采纳
我正在尝试优化将删除满足特定条件的行的代码。我有工作代码，但是下面的代码创建了7秒的等待时间来执行：For j = 2 To Rows.CountSelection.Delete Shift:=xlUp</e
浏览 0提问于2018-09-26得票数 0
3回答
我需要从F4中删除F列中的空白单元格。每一行将有0到许多空白单元格。Sub test()With Worksheets("Sheet1") Do While .Cells(i, "F"
浏览 0提问于2018-09-26得票数 0
回答已采纳
1回答
范围删除方法失败
、、
我在excel vba中有一个‘数据库’，但是当我尝试从源代码中删除一行时，按ID号选择并按delete键，它会卡在Rows(Y).Delete Shift:=xlUp上，我不知道为什么，它以前工作过，所有数据都显示在列表框中。Delete method of Range failedDim X As Long
X = Sheet1.Range("A" & Rows.Count).End(xl
浏览 1提问于2020-10-23得票数 0
回答已采纳
2回答
SearchDirection:=xlNext, MatchCase:= _Rows(ActiveCell.Row).SelectColumns("B:B").SelectmRange.Find(What:="TRUE", After:=xlUp
Do While Not mRange Is N
浏览 3提问于2016-06-29得票数 1
回答已采纳
我正在处理记录每个多个站点31天数据的每日数据，我需要一个VBA代码来删除闰年日。我有一个记录数据日期的列表和一个不是闰年的列表，我想删除这些年。为了删除额外的30天和31天，我使用了以下基本代码：lastrow = ActiveSheet.Cells(65536, 1).End(xlUp).Row" & i) = 2 And ActiveSheet.Range("E" & i) = 31 Th
浏览 2提问于2013-10-07得票数 1
回答已采纳
我试图根据另一个单元格的值隐藏特定的单元格。到目前为止，我设法隐藏了整个行，但无法隐藏特定的单元格。If Range("Currency").Value = "USD" ThenEnd IfRange("LocalCurAmount").Hidden = True
Range("LocalCurAmount").Cell
浏览 0提问于2018-11-25得票数 0
回答已采纳
我正在尝试在行中动态定义一个范围，如ctrl+down或ctrl+shift+down (到下一个空白单元格)，以便与“rng中的每个itm”语句一起使用。Next itmSet StartCell = Range("A4")但是代码似乎不适用于“rng中的每个i
浏览 1提问于2019-06-05得票数 0
回答已采纳
1回答
我用VBA尝试了3种不同的方法来删除excel中的行，我有第四件事情要做，但是我想知道为什么其他人没有工作来获得更好的理解。Delete _ThisWorkbook.Worksheets("Orders").Range(.Rows(lastRow), _
.Rows(lastRow3)).EntireRow.Delete Shift:=x
浏览 2提问于2018-01-08得票数 0
回答已采纳
2回答
VBA :使用变量删除行
、、、
我想删除从2到z (z > 2)的行。我写了两个方法，但都不管用。我寻找答案，但没有找到解决方案。'.Rows("2:" & z).Select Selection.Delete Shift:=xlUp
提前谢谢你
浏览 0提问于2017-03-08得票数 2
回答已采纳
云服务器
ICP备案
实时音视频
即时通信 IM
云直播
腾讯云开发者
