Tag:

VBA – 删除另一个工作表中的行

Function DeleteRows() Dim wb As Workbook Set wb = Workbooks(ThisWorkbook.Name) Debug.Print wb.Name Dim wsName As String Dim ws As Worksheet wsName = "SheetX" Set ws = wb.Worksheets(wsName) Debug.Print ws.Name With ws Debug.Print "ws.name = " & ws.Name Rows("3:31").Select Selection.Delete Shift:=xlUp End With End Function 我有这个函数,DeleteRows,从工作表“SheetX”删除行3:31。 这仅适用于“SheetX”是屏幕上显示的工作表。 我希望它工作时,另一张表,让工作簿中说“SheetY”显示。 我怎样才能做到这一点? 一种方法是:1激活“SheetY”2删除行3激活“SheetX” 但是这对用户来说不是透明的。 感谢帮助。

如何使用VBA在Excel中合并/合并相似的行?

我正在尝试在VBA for Excel中构build一个简单的macros,将SUM [合并]具有相同名称(第一列中的值)的所有行。 所以例如 ExampleRowA 1 0 1 1 3 4 ExampleRowA 2 1 2 2 1 0 ExampleRowC 9 7 7 7 2 5 结果应该是这样的 ExampleRowA 3 1 3 3 4 4 ExampleRowC 9 7 7 7 2 5 我们可以假定需要合并的行不是分散的,只能一个接一个地出现。 我做了这样的事,几乎可以工作,除了我必须运行两次。 LastRow = ActiveSheet.UsedRange.Rows.Count Set r = ActiveSheet.UsedRange.Resize(1) With Application.WorksheetFunction For iRow = […]

打开perl中的Excel文件并打印行数

我正在使用Win32 :: OLE模块打开Excel文件并获得行数。 问题是,当我硬代码的Excel文件path工作正常,但是当我dynamic传递path,它会抛出一个错误,说:“不能调用方法工作簿上的参考”。 请find下面的示例代码。 use OLE; use Win32::OLE::Const 'Microsoft Excel'; my $xapp= Win32::OLE->GetActiveObject('Excel.Application') or do { Win32::OLE->new('Excel.Application', 'Quit')}; $xapp->{'Visible'} = 0; my $file='excel.xlsx'; my $fileName="c:/users/mujeeb/desktop/".$file; print $fileName; my $wkb = $xapp->Workbooks->Open($fileName); //here i am getting error coz i am passing dynamic fileName; my $wks = $wkb->Worksheets('Sheet1'); my $Tot_Rows=$wks->UsedRange->Rows->{'Count'}; print $Tot_Rows."\n"; $xapp->close;

索引/匹配多个条件并重复n次

我需要帮助完成这个公式。 它需要: 确定第一个value应该在哪里 确定相同location内的value何时发生变化。 例如,洛杉矶有两个单独的value 这是我迄今为止(假设en: =IF(ROW()-1="","",IF(ROW()<=ROW($F$2)+INDEX($A$2:$D$7,MATCH($F$1,$A$2:$A$7),4)-1,INDEX($A$2:$D$7,MATCH($F$1,$A$2:$A$7),3),0)) 假设样本数据在A1到D7中,理想结果在E1中开始,并且在单元格F2中填充了0.12。 样本数据: 理想的结果:它应该索引/匹配的location和start_time并复制基于replicate计数的value ,如下所示。 感谢您的任何build议/方法

无法使用Apache POI删除空行Excel文件

我一直在尝试我的代码删除我的Excel文件中的空行! 我的代码是: private void shift(File f){ File F=f; HSSFWorkbook wb = null; HSSFSheet sheet=null; try{ FileInputStream is=new FileInputStream(F); wb= new HSSFWorkbook(is); sheet = wb.getSheetAt(0); for(int i = 0; i < sheet.getLastRowNum(); i++){ if(sheet.getRow(i)==null){ sheet.shiftRows(i + 1, sheet.getLastRowNum(), -1); i–; } } FileOutputStream fileOut = new FileOutputStream("C:/juni1.xls"); wb.write(fileOut); fileOut.close(); //Here I want to write the new […]

Excel,尝试使用Row()来引用单元格,以便从其他选项卡的Indirect()拉取数据

Target Tab Name Data (date) Formula used to grab it 1 RTP SVC MCU 01/31/15 ='RTP SVC MCU'!G1 2 RTP SVC MCU 01/31/15 =INDIRECT("'" & B2 & "'!G1") 3 RTP SVC MCU #REF! =INDIRECT("'" & ("B" & ROW()) & "'!G1") Row test B5 ="B" & ROW() 在我的工作表上,我正在创build一个摘要选项卡,它将从其他选项卡中提取各种信息。 标记为1的示例从单元“RTP SVC MCU”(单元格G1)抓取date,简单而直接。 示例2也是这样做的,但我删除了显式定义的选项卡名称,并将其replace为对B14中的摘要已存在的选项卡名称的引用。 示例3尝试执行相同的操作,但是没有明确定义包含Tab名称的单元格。 基本上我想从目标选项卡名称列中获取它自己的行号的选项卡名称,以便可以填充所有date列(和其他),而不必使用自动填充拖动公式,因为需要空行总结之间。 长话短说,我试图结合标记为2的行和“行testing”的效果。

隐藏行时隐藏checkbox

我用VBA代码来隐藏一些行。 点击checkbox时,这些行将被隐藏。 我现在的问题是 – 与每行关联的checkbox不会隐藏。 这也干扰我原来的VBA代码来隐藏行和停止工作。 我想隐藏这些checkbox的行。 请你指教?

在Excel中“旋转”一个表格

我在Excel 2007中有大量的数据,但行应该是列,反之亦然。 有没有简单的方法来“旋转”这个电子表格,重新排列所有单元格,使行成为列?

在Excel中删除所有完全空白的行

我在当前的工作簿中使用了几千行。 但是,有几百行是完全空白的。 我怎样才能select每一行(只有那些完全空白),并删除它们?

在Excel Vba中select最后8行

我想selectx行的最后8行(每个月的数量改变),这里有一个线程,但只有一列。 我需要它的几个列,并尝试了两种不同的方式,但都不工作,由于语法。 Sheets("Sheet2").Select LastRow = Range("D" & Rows.Count).End(xlUp).Row Set Last8Rows = Range("A" & LastRow).Offset(-7, 0).Resize(8, 1) Set Last8aRows = Range("B" & LastRow).Offset(-7, 0).Resize(8, 1) Set Last8bRows = Range("C" & LastRow).Offset(-7, 0).Resize(8, 1) Set Last8cRows = Range("D" & LastRow).Offset(-7, 0).Resize(8, 1) Set Last8dRows = Range("E" & LastRow).Offset(-7, 0).Resize(8, 1) Set Last8eRows = Range("F" & LastRow).Offset(-7, 0).Resize(8, […]