Tag: 插入

根据单元格值插入单元格

我在这里find了这个脚本，并修改了一些以适应我的需要。 但是，我不知道如何插入一个单元而不是整个行 Sub BlankLine() Dim Col As Variant Dim Col2 As Variant Dim BlankRows As Long Dim LastRow As Long Dim R As Long Dim StartRow As Long Col = "A" Col2 = "B" StartRow = 2 BlankRows = 1 LastRow = Cells(Rows.Count, Col).End(xlUp).Row Application.ScreenUpdating = False With ActiveSheet For R = LastRow To StartRow […]

复制工作表之间的范围，在OriginalSheet的Col-E中searchdate并在列A的date范围之间插入它

我是一个新手，但希望你能帮我打动我的新老板;）。 我的工作有一个程序，输出一堆数据到电子表格（不能改变这一点，我只能得到这个信息），并从该电子表格我被告知手动复制粘贴范围（第一节是A8到H8，第二部分是A9到H9，依此类推）到基于date（同一工作簿）的另一个电子表格中，插入一个新行来粘贴。 工作簿被称为“发票”。 电子表格1 – 原始 – 列如下：空白，空白，空白，参考，date，备忘录，代理，付费。 电子表格2 – 转账 – ，（按datesorting）：星期一，date，金额到期，参考，date，备忘录，代理，付费。 所以目前我手动：1.检查原始页面上的date（E栏）2.转到转移页面3.查找它所在的date范围（列A），如果有帮助，date从A20开始。 4.在该date范围内插入新行5.返回到原始页面6.剪切范围AH 7.将其粘贴到单元格AH中新创build的第2页的行中。重新着色新的E单元格为蓝色。 正如你所看到的，两个页面上的DH列是相同的。 如果我们能够将E的价值复制到A（date）中，那将是惊人的，但是我可以没有它。 我一直在试图做一个macros，但我却无法实现。 简而言之，我希望它在原始行E中查找date，在传输行A中查找它，在下面插入一行（date随后往下），然后粘贴A：H范围。 如果有人能够帮助我，我会非常感激，如果他们能告诉我如何循环macros，所以它Row8（数据第一次出现的地方，然后回去做9号行，我会在月球上。如果完全可能的话，我需要从原始页面的单元格Z1中获取标签名称（表格名称），我已经设置了它自动输出。它必须是macros而不是VBA。 非常感谢！ 这是我的录制方法，如下所示： Sub Macro3() 'In the sheet I need to TRANSFER to <- This part is fine Sheets("Transfer").Select 'Manually pick random row <- this needs to be done automatically based on comparing value of […]

VBA – 在列中查找值并在这些单元格的前面插入空白行

我想find单元格，其中包含一个确切的值，并插入这些单元格前面的空白行。 我已经有了代码，它将查找并插入这些行，但只在这些单元格后面。 代码在这里： Private Sub SearchnInsertRows() Dim LastRow As Long Dim rng As Range, C As Range Dim vR(), n As Long With Worksheets("INPUT_2") ' <– here should be the Sheet's name LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row ' last row in column A Set rng = .Range("A1:A" & LastRow) ' set the dynamic range to be […]

尝试使用OLEDB将数据插入Excel文件

我想要一个C＃表单中的button，可以将数据插入到Excel表格中。 这就是我所做的： try { System.Data.OleDb.OleDbConnection MyConnection; System.Data.OleDb.OleDbCommand myCommand = new System.Data.OleDb.OleDbCommand(); string sql = null; MyConnection = new System.Data.OleDb.OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0;Data Source='C:\\Users\\Miko\\Documents\\WeightWatchers – Copy\\TrackingLoss.xlsx';Extended Properties=Excel 8.0;"); MyConnection.Open(); myCommand.Connection = MyConnection; sql = "Insert into [Sheet1] (Date,Loss) values(y,x)"; myCommand.CommandText = sql; myCommand.ExecuteNonQuery(); MyConnection.Close(); } catch (Exception ex) { MessageBox.Show(ex.ToString()); } 当我尝试它时， 这个窗口是打开的。 任何人都知道为什么和做什么？

VB.NET访问数据库插入不插入数据？

我试图插入一个表，我在Access中的表。 该表名为Site，它有两列，SiteId（AutoNumber）和SiteName（Text）。 出于testing的目的，我从Excel工作表中抓取了一个值，并尝试用下面的代码将值插入到SiteName列中。 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim App As New Excel.Application Dim WB As Excel.Workbook = App.Workbooks.Open("C:\MyFile.xlsx") Dim WS As Excel.Worksheet = DirectCast(WB.Worksheets(2), Excel.Worksheet) App.Visible = False Dim Range As Excel.Range Range = WS.Range("A8") Dim cnn As New OleDbConnection(My.Settings.cnn) Dim cmd As New OleDbCommand("INSERT INTO Site(SiteName) […]

如何使用gembox电子表格在excell中复制和插入特定的行

请帮忙。 我使用gembox.spreadsheet库在excel文件中插入和复制2页内的特定行。 但它仍然有无效论点的问题。 public void InsertCopyData() { SpreadsheetInfo.SetLicense("FREE-LIMITED-KEY"); ExcelFile ef = new ExcelFile(); // Loads Excel file. ef.LoadXls(@"C:\templateExcel\DataTable.xls"); // Selects first and 2nd worksheet. ExcelWorksheet w1 = ef.Worksheets[0]; ExcelWorksheet w2 = ef.Worksheets[1]; //insert copy file w1.InsertCopy(w1.Rows["A1"], w2.Rows["A4"]); //Saves the file in XLS format. ef.SaveXls(@"C:\templateExcel\Insert DataTable.xls"); }

尝试使用Excel VBA中的SQL语句UPDATE INTO没有成功

我试图插入一个新的行，填充数据到一个简单的访问表使用从Excel VBA的SQL，并不能克服第一个障碍。 我有一个名为“testing”的表，有四个字段。 ID [识别为主键的自动编号字段] 文本1 [文本字段] YN1 [有/无字段] No1 [长整型数字字段] 除AutoNumber字段（PK）以外，没有任何关系或没有设置索引。 所有字段都将“必需”设置为否，未设置validation并且没有设置默认值。 Text1可以接受零长度。 我的VBA代码的业务结束如下： 'Connection string. stcnt = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & stDBPath & stDBname 'Instantiate the ADO-objects Set cnt = New ADODB.Connection 'Open the connection for first Query With cnt .Open (stcnt) 'Open the connection. .CursorLocation = adUseClient 'Test Data T1 = "ABC123" Y1 […]

如何插入一行，如果两个数字之间的差异是>在Excel中超过0？

我有一个简单的Excel表，我想在特定的行后面插入n行 例如： 如果B和C列的差值大于0，我想插入n行。 而要插入的列数是这两个单元格之间的差异。 但是（如果可能的话）想通过插入单元的数量来增加D列的数量，但是我不知道使用哪个公式。 我已经在VBA中做了一个小macros，但是我没有任何VBA的经验，我只能做第一行，我不能复制行，只需插入必要的行数！ 我的代码： Sub insertCells() Dim x As Long c = Range("C1").Value Dim id As Long id = Range("A1").Value + 1 Dim y As Long b = Range("B1").Value Dim i As Long i = c – b Do Until i = 0 Rows(id).Insert Shift:=xlToRight i = i – 1 Loop End […]

使用`With`插入新行，而不是`.Select`

我在尝试使用代替插入新行时的.select代码时遇到了麻烦。 我已经多次被告知， .select不被使用，因为它是慢得多。 我的macros创build一个新的行，但删除下面的行中的内容，并复制当我使用.select时从未发生过的行的格式。 这也意味着单元格B11中增加的数字是不正确的，因为它从下面清除的内容再次从1开始。 Sub New_Entry() Application.ScreenUpdating = False Application.EnableEvents = False Dim rng As Range Set rng = Range("B11:AB11") With rng .Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove End With Application.CutCopyMode = False With rng .ClearContents .Interior.ColorIndex = xlNone .Borders.LineStyle = xlContinuous End With With Range("B11") .Value = Range("B12") + 1 End With With rng .Font.Bold = […]

无法覆盖R数据框到现有的Excel中

我是一个初学者，试图简单地从RStudio插入一个R数据框到现有的Excel工作表中，而不会丢失该表中的以前的数据或覆盖整个文件，例如。 从第16行第1列的表“August”中的“Reporting.xlsx”文件中插入新的数据框（15行，4列），以便以前的信息不会丢失？ 谢谢 ！