Tag: excel

数组值不转置给单元格: 我正试图学习如何在Excel VBA中使用字典。 testing是通过一个数组将字段A中1-100000行的所有值传递给一个字典，然后将所有值写入列B.这个工作正常，直到行34464，B列中的其余行得到#N/A 任何想法为什么？ Sub nnn() 'Tools – References – Microsoft Scripting Runtime Dim myArray As Variant Dim myRow As Long Dim dicMyDictionary As Scripting.Dictionary Set dicMyDictionary = New Scripting.Dictionary With ThisWorkbook.Worksheets("Sheet1") myArray = Range(Cells(1, 1), Cells(100000, 1)).Value For myRow = LBound(myArray, 1) To UBound(myArray, 1) dicMyDictionary.Add myRow, myArray(myRow, 1) Next myRow myArray = dicMyDictionary.Items […]

使用jxl读取Excel工作表不能工作超过255行: 我尝试阅读使用jxl jar旧格式的Excel表，它工作正常，但在255行后抛出错误： java.lang.ArrayIndexOutOfBoundsException: 255 我不能用Poi jar阅读，因为它是旧的格式，任何帮助非常感谢！下面是下面给出的Java代码片段： public HashMap<String, Float> readAllRowsOnePoint(String path, String sheetname) throws BiffException, IOException { System.out.println("Path download" + path); FileInputStream fs = new FileInputStream(path); Workbook wb = Workbook.getWorkbook(fs); Sheet sheet = wb.getSheet(sheetname); // To get the number of rows present in sheet int totalNoOfRows = 500; System.out.println("The rows count is " + […]

剪切并复制特定的string值到相邻的单元格: 我在同一个单元格中有一个公司名称和城市名称的Excel数据库，我想将城市名称拆分到find文本的相邻单元格。我有一个数组的城市名称。数据库看起来像： FINER附近EL CAJON 第一个selectpipe道系统RAMONA FRANK GILILLAND施工SANTA YNEZ 等等我的代码到目前为止（非常基本）： Sub FindCityNames() Dim citylist(500) As String Dim i, j, k As Integer For j = 1 To 500 citylist(j) = Workbooks("cities.xlsm").Worksheets("City list").Cells(j, 1) Next j For i = 1 To 500 Cells.Find(What:=citylist(i), After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate ActiveRange.Cut Next i […]

使用工作表1中的值，search工作表2，并将工作表中的值作为工作表3返回: 这个问题我在第2页有一堆数据。大约有6k行。我有一些437我想find。这些在表1（A栏）中有规定。对于这些我想复制整个行，并将其放置在工作表3中。工作表1中的值可以在工作表2中多次find，我需要他们。我的解决scheme，我发现VBAsearch这一切。但是在437点停止。 Public Sub findfak() Dim lastRowS1 As Long Dim lastRowS2 As Long Dim lastRowS5 As Long Dim i As Long Dim j As Long Dim tempS1 As Long Dim temps2 As Long Dim tempRow As Long lastRowS1 = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row lastRowS2 = Sheet2.Cells(Rows.Count, 1).End(xlUp).Row Application.ScreenUpdating = False For i = […]

为什么我添加和条件在中频function不起作用？: 我有下面的表格，我用{=MAX(IF(M21:M28=1,N21:N28))}来得到最大值，根据相同的1号，它给出了正确的值99915如果我想添加另一个条件，例如相同的name=hao和相同的No=1 。我应该得到916 。这是我在这里使用的，但给我0 。不知道为什么？谢谢 {=MAX(IF(AND(M21:M28=1,L21:L28="hao"),N21:N28))} Name No Value hao 1 10 hao 1 11 rui 2 12 rui 1 213 alvin 2 14 alvin 1 99915 hao 1 916 hao 3 9917

将两张纸上的数据合并成正确的行: 我有两个Excel表格，数据类似于： SHEET 1: ABC 1 Josh 30 Austin 2 Sam 28 SF 3 Mary 35 Chicago SHEET 2: AB 1 Josh Car 2 Mary Truck 3 Sam Van 我试图做的是将两个基于列A合并。例如，结果将是： ABCD 1 Josh 30 Austin Car 2 Sam 28 SF Van 3 Mary 35 Chicago Truck 我试着挖掘微软网站上的Excel支持，但我没有得到任何地方。最初我以为这将与数据>整合function有关，但似乎并没有工作。

PHPExcel – 使列不丢弃前导零: 我目前正在运行代码来获取一个.csv文件，该文件每天都会被创build并正在使用; 作为分隔符，并将其导出到Excel电子表格中。代码如下： $xlFileName = $outDir."output_".date("njY").".xls"; require_once 'PHPExcel_1.8.0_doc/Classes/PHPExcel/IOFactory.php'; $objReader = PHPExcel_IOFactory::createReader('CSV'); $objReader->setDelimiter(";"); //$objReader->setInputEncoding('UTF-16LE'); $objPHPExcel = $objReader->load($todayFileName); $objWriter = PHPExcel_IOFactory::createWriter($objPHPExcel, 'Excel5'); $objWriter->save($xlFileName); 我遇到的这个问题是，一列是邮政编码，可以从0开始。有没有什么办法可以告诉PHPExcel不要丢弃该特定列中的前导零？编辑：示例csv内容： Date;Zip Code;Data;Data;Data 10/12/2015;01234; Some Data ; More Data ; More Data 10/12/2015;12345; Some Data ; More Data ; More Data 10/12/2015;23456; Some Data ; More Data ; More Data 10/12/2015;34567; Some […]

保护Excel工作簿免于在外部networking中打开: 我有一个Excel工作簿，我需要与我的客户分享，但要确保它不在办公室networking之外打开。如何保护我这样的Excel工作簿？

过滤值忽略，而不是值显示: 我录制了一个macros来创build一个表格，并在第9列中过滤掉某些值。我想显示except for Taxes and General所有结果。生成的代码反过来，过滤你想看到的字段。我怎样才能切换它，所以我硬编码我不想看到的值。所以当添加一个新的值时，它也会被自动提取，否则就会被忽略。 LastRow = Sheets(Sheets(1).Name).Cells(Rows.Count, "A").End(xlUp).Row ActiveSheet.ListObjects.Add(xlSrcRange, Range("A1:T" & LastRow), , xlYes).Name = "Table1" ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=9, Criteria1:= _ Array("Intel", "Cisco", "Global", "Local", "HR", "Finance", _ "Cables", "HP"), Operator:=xlFilterValues

将值分配给2维数组: 我想获得一些数据，我input另一个macros到一个二维数组，所以我可以应用一个函数的数据，但不pipe我尝试我不断收到错误。数据包括string和数字。我总是可以引用单元格，忘记数组，但这会使函数复杂化。这是我的代码：（声明） Dim nLiens As Byte, nCreditors As Byte Dim SecurityV As Currency, ASecurityV As Currency Const adjuster = 0.9 （相关潜艇） Public Sub VariableDeclaration() nLiens = InputBox("Enter number of liens in security") nCreditors = InputBox("Enter number of creditors") SecurityV = InputBox("Enter security full value") ASecurityV = adjuster * SecurityV Call ODebt End […]