Tag: 行

从Excel到Word的VBA添加表格中的表格与合并的单元格: 我已经遍布互联网寻找解决我的问题，但没有答案。我想要做的是使用Excel VBA在Word表格中插入一行。该表包含我想要插入行的区域之外的一些合并的单元格。我会做一个没有合并单元格的表格是这样的： Dim WrdApp As Word.Application Dim docPA As Word.Document Dim tabelWord As Word.Table Set WrdApp = GetObject(, "word.Application") Set docPA = WrdApp.Documents.Open(Application.ActiveWorkbook.Path & "\TabeleCopyV3.doc") Set tabelWord = docPA.Bookmarks("TabelSOPotential").Range.Tables(1) tabelWord.Rows(2).Select WrdApp.Selection.InsertRowsAbove (5) 这适用于没有合并单元格的表格。但是，如果表格甚至有2个合并的单元格（在我想要插入数据的区域之外），则select不会发生。我甚至不能使用这个代码寻址表格单元格： tabelWord.Rows(2).Cells(1).Range.text = "text" 我可以解决单元格的问题的唯一方法就是使用这个代码： tabelWord.cell(2, 1).Range.text = "text" 这样我设法删除这样的行： tabelWord.cell(2, 1).Delete ShiftCells:=wdDeleteCellsEntireRow 但是，我怎么这样插入行呢？谢谢！

如何使用macros将数据从行转换为列: 我对VBA是全新的（除了手动录制和运行），所以希望有人能帮我devise这个。我有一个工作表，每个唯一的ID（列A）未指定的行数，基于date和types。： ABCD 1 12Jan2010 type A Person1 1 16Jan2010 type B Person1 2 06Dec2009 type A Person2 3 16Dec2009 type A Person1 5 20Dec2009 type A Person2 5 02Jan2010 type B Person2 4 10Dec2009 type A Person2 基于唯一ID，我想将这些数据转换为每行唯一ID为1行，然后将所有的date值按照时间顺序放在整行上，所以它看起来像这样： ABCD 1 Person1 12Jan2010(A) 16Jan2010(B) 2 Person2 06Dec2009(A) 3 Person1 16Dec2009(A) 4 Person2 10Dec2009(A) 5 […]

如果条件满足，将excel中的行复制到表中。: 我试图根据D列中的数据将Sheet'All'的整行复制到另一个Sheet中.D列（Homework / Advanced / Beginner）中有多个值，这些行需要被复制到相应的名字。（家庭作业表）。 “全部”工作表中的数据将被添加到新的数据，而不需要复制那些已经存在的数据。

C＃ – Excel：删除行，取决于第一列中的值: 想象一下，你有列A.有100行，在单元格中是数字，如1，2，3，直到100。我怎样才能programmaticaly（C＃）删除特定的行，通过示例：删除行A列中的值是5 .. 我正在与Microsoft.Office.Interop.Excel和那是相关的代码： Microsoft.Office.Interop.Excel.Application xlApp = new Microsoft.Office.Interop.Excel.Application(); Microsoft.Office.Interop.Excel.Workbook xlWorkbook = xlApp.Workbooks.Open(@"C:\Users\fre\Desktop\TestDatei.xls"); Microsoft.Office.Interop.Excel._Worksheet xlWorksheet = xlWorkbook.Sheets[1]; Microsoft.Office.Interop.Excel.Range xlRange = xlWorksheet.UsedRange; xlWorksheet.Select(Type.Missing); Microsoft.Office.Interop.Excel.Range range = xlWorksheet.get_Range("B1:B5", Type.Missing); range.Delete(Microsoft.Office.Interop.Excel.XlDeleteShiftDirection.xlShiftUp);

Excel：如何从excel行中获取date: 我如何从Excel行中提取开始/结束date？在开始date和结束date之间不应有重叠或缺口。有几个开始和结束的date，它必须在最早的date之间。还需要validation开始/结束date。有几条logging，它们可能有相同或不同的开始和结束时间，当把它们拉在一起，我需要最早的date/时间被拉和显示。它将为结束date，最早的date/时间做同样的事情。对于下一行，开始date将与前一行结束date相同，等等。我试图得到一个Excel的algorithm。我应该使用SQL来做到这一点，或者我可以保持在Excel中？这里有三个示例数据集，第四个是我想要的结果。

Excel行（）和列（）函数: 我有一个简单的问题：我如何引用与列结合的行，反之亦然？例如我有这样一张桌子： |A|B|C|D| 1 |1|0|1| 2 |4|4|2| 3 |7|2|3| 4 |5|7|2| 5 |3|9|1| 要引用A1，我如何使用Row（）函数引用它我希望列保持不变，但行是可变的，根据我在哪一行。例如，如果我在D5上，我需要像=SUM(ARow(), CRow())等于=SUM(A5, C5) ，返回4。谢谢。

MS Excel，多行，如果有多个具有相同值的行，则使用VLOOKUP复制数据: 我有一个Excel电子表格，下面的数据。 ID lastname firstname dob —————————————————— 123 Alderson Sophie 01-01-1900 456 Sophie 5573 Alderson Sophie 我正在尝试使用VLOOKUP函数和一些条件语句的组合来实现某些function，但是要循环使用。在这种情况下，所有的logging都属于一个人（Alderson-sophie）。同一个人可能有1个或更多的logging。但是，所有的行可能会或可能不会有相同的信息，如图所示。所以，我需要复制属于同一个人的其他行中的任何信息（单元格）和第一行（将被视为主要行），确保如果行之间的数据存在差异，值被复制到它，而第一个以外的行被保留为空白。任何帮助/指针，请.. 提前谢谢

Excel组function – 插入行: 我正在使用Excel 2010，使用组function折叠（然后显示）行组。直到我插入从另一个工作表复制的附加行为止，这个效果很好。 select向下移动单元格选项也会移动分组的开始和结束点 – 有效地打破我想要的分组。所以我想我的问题是 – 我可以保留分组和插入新的行（自动扩大特定组中的行）？任何意见赞赏。谢谢西蒙

使用电子表格gem获取电子表格行数: 这是我目前的工作代码： require 'csv' require 'spreadsheet' folder_to_analyze = ARGV.first folder_path = File.join(Dir.pwd, folder_to_analyze) unless File.directory?(folder_path) puts "Error: #{folder_path} no es un folder valido." exit end def get_csv_file_paths(path) Dir.glob(path + '/**/*.csv').each do |f| yield f end end def get_xls_file_path(path) Dir.glob(path + '/**/*.xls').each do |f| yield f end end csv_files = [] excel_files = [] get_csv_file_paths(folder_path) { |f| […]

在单元格中定位特定值并删除标识的行: 我一直在使用这个网站，并且一直在寻找一种相对简单的方法来在Excel 07中实现VBA中的任务。我有一个列有许多不同的值，我试图find单元格AA：AA开始“L-”，然后从那里删除表中的行。 activesheet /活动手册永远不会改变，但我遇到的问题是列有空白单元格时不时。我试过使用下面的代码，但我没有达到我需要的结果。 Sub Remove_Expendables() Application.ScreenUpdating = FALSE Range("AA1").Select Do ActiveCell.Offset(1, 0).Select If ActiveCell = (Left("L-",2) Then ActiveCell.ClearContents Loop Until IsEmpty(ActiveCell.Offset(0, 2)) ActiveSheet.Columns("AA:AA").SpecialCells(xlCellTypeBlanks).EntireRow.Delete Application.ScreenUpdating = TRUE End Sub