Tag: delete row

用vbscript从xlsx中删除蓝色和空的单元格

我有一个VBScript将特定范围的行转换为CSV文件。 我的问题是它也复制空行，不需要蓝色的行。 如何在复制之前删除这些完整的空行或将它们从复制中排除？ 我的代码： Public Sub xlsToCsv() Const WorkingDir = "C:\Test\" Const xlCSV = 24 Const xlUp = -4162 Dim fso, SaveName, myFile Dim objExcel, objWorkbook, wsSource, wsTarget myFile = "source_file.xlsx" SaveName = "test.csv" With CreateObject("Scripting.FilesystemObject") If Not .FileExists(WorkingDir & myFile) Then MsgBox "File not found:" & vbCrLf & WorkingDir & myFile, vbInformation, "Script Cancelled" […]

拖动INDIRECT和

我想我会带你通过我的想法，因为可能有一个更好的办法比使用间接达到预期的结果，但如果不是那么间接解决scheme将非常方便。 我有一个简单的公式 =SUMPRODUCT($E$10:$E20,J10:J20)横跨大量列结束在CC的某处 然而，当我插入一行时，我发现它会改变我的10和10美元到11和11美元，所以我放在那里间接。 =SUMPRODUCT(INDIRECT("$E$10:$E20"),INDIRECT("J10:J20")) 我现在意识到，我指的是一个string，如果我把它拖到右边，单元格引用将不会更新。 所以最初我的第一个问题是我怎样才能更新这些，这样我就可以将INDIRECT拖到右边的列上，并更新单元格引用，这样我的公式就会像拖动到列K中一样，或者至less以相同的方式工作等等。 =SUMPRODUCT(INDIRECT("$E$10:$E20"),INDIRECT("K10:K20")) 然而 如果有一个比间接更好的解决scheme，当插入或删除行时，保留我的重要公式也是非常有用的。

查询expression式中的语法错误（缺less运算符）“”

我在删除（DELETE）行时遇到问题。 每次我在我的string sql添加列名称它显示错误“查询expression式中的语法错误（缺less运算符）”。 这是我的代码： OleDbConnection myCon = new OleDbConnection("provider = Microsoft.Jet.OLEDB.4.0;DataSource = '" + fileLocation + "'; Extended Properties=Excel 8.0;"); OleDbCommand myCmd = new OleDbCommand(); myCmd.Connection = myCon; string sql = "DELETE * FROM [" + tablename + "$] where _date = '" + full_date + "'"; myCmd.CommandText = sql; myCon.Open(); myCmd.ExecuteNonQuery(); myCon.Close(); 例如我的string sql值是 […]

Excel或如果不工作

在Excel中，如果列V中的单元格不等于F或V，我简单地试图删除一行。此代码删除所有内容。 它必须是愚蠢的，但我看不到它。 请帮忙！ For i = RowCount To 1 Step -1 If Range("V" & i).Value <> "F" Or Range("V" & i).Value <> "V" Then Rows(i).Delete Next i

Excel：需要删除大约一百万个空白行

我有一个来自我们的客户的Excel文件，该文件有接近100万空白行。 我尝试过滤列C（称为项目），它是空白的，然后select所有行，并尝试删除。 它几乎冻结了将近几个小时，但最后我杀了Excel的过程。 我也在VBA脚本下面试过，但是实际上它写着“r.rows（i）.Delete”的那一行就冻结了。 这是第一个删除实例本身。 我也将Excel文件设置为手动进行公式计算。 我不介意整个工作需要几个小时。 我可以一夜之间离开，并在早上检查。 如果有什么与VB.NET或C＃也没关系。 更新1：我不能做1到1048576行之间的批量删除，我需要删除C列为空的那些行（这意味着行是空白的）。 更新2：我标记下面的删除作为答案，但我最终通过将GOOD行复制到另一个工作表来解决此问题。 请build议处理这种情况的最佳select。 VBA源 Sub BlankRowDelete() Dim r As Range, rows As Long, i As Long Application.ScreenUpdating = False Application.DisplayStatusBar = False Application.Calculation = xlCalculationManual Application.EnableEvents = False ActiveSheet.DisplayPageBreaks = False ActiveSheet.AutoFilterMode = False Set r = ActiveSheet.Range("A1:A1048576") rows = r.rows.Count For i = rows To […]

VBA如果值小于指定值，则删除整行 – 删除错误的行

我试图运行一个小的macros，它search工作表的S列，如果S列中的值小于0.501，它将删除该行。 我正在运行的代码删除了一些行，但似乎这样做是随机的，而不是基于s中的单元格值。 任何人都可以看到我的错误来自哪里？ Sub sort_delete_500cust() Dim WS_Count As Integer Dim I, K As Integer Dim endrow As Long ' Set WS_Count equal to the number of worksheets in the active ' workbook. WS_Count = Workbooks("Standard.xlsx").Worksheets.count ' Begin the loop. For I = 1 To WS_Count With Worksheets(I) endrow = .Range("a" & .Rows.count).End(xlUp).row ' only works […]