Tag: 行

从具有数字的第一个单元格中排除最后一个单元格: 我有以下的Excel工作表在J列中，我需要行和最后一个单元格（最后一个数字）之间的最后一个区别。数字可以从列C出现，直到列I.数字不总是始于列C，并不总是在列I结束，但是从来没有空的单元格。基本上我需要用一个数字从最后一个单元格中减去第一个单元格中的值。从CI减去该范围中的第一个值的范围中的最后一个值与在J中显示的结果。我现在手动填入J列，但是我想用公式来完成。

将行从一个Excel文件复制到另一个，并在右列中分配row.cells: 我一直在尝试复制一个范围的行，每个4列，到一个新的csv文件。我希望细胞分配正确。这些文件如下所示。因此，需要将“代码”，“名称”，“姓氏”，“数量”单元复制并粘贴到新文件的右侧单元格中。 “代码”是等效的“ID” “名称”位于FileA的第二列，但位于FileB的第三列。 “姓氏”在FileA的3d列中，但是在FileB的第二列中。所以，例如FileA的第二行将被粘贴到FileB中，如下所示： UPD ：我使用此代码来select行的范围并将其粘贴到新文件。 Sub ExportRangetoFile() Dim Rng As Range Dim WorkRng As Range Dim lRow As Long, lCol As Long Dim xFile As Variant Dim xFileString As String On Error Resume Next lRow = Range("A" & Rows.Count).End(xlUp).row lCol = Cells(1, Columns.Count).End(xlToLeft).Column Set Rng = Range(Cells(lRow, 1), Cells(lRow, lCol)) […]

在Excel中删除增量行: 我有一个24小时的全年，每天之间有3个不必要的行（24小时行）的小时数据。我想删除所有这些不必要的行。我目前的方法是增加24个空格，删除3行，然后循环回到24个空间增量，直到最后一行（lRow）的值<1，在这种情况下循环将停止。请参阅下面的我的当前代码： Sub Delete_Rows() Dim lRow lRow = 9468 Do While lRow >= 1 lRow = lRow – 24 Sheets("Sheet 1").Rows(lRow).Delete lRow = lRow – 1 Sheets("Sheet 1").Rows(lRow).Delete lRow = lRow – 1 Sheets("Sheet 1").Rows(lRow).Delete Loop End Sub 但是，我一直在这一行上得到运行时错误：1004： Sheets("Sheet 1").Rows(lRow).Delete 我不明白这是为什么，任何帮助或替代方法来实现这个目标，我们感激。

如何在Excel中将重复的度量从行转换为列: 我有大约5000个重复测量的数据文件，这些测量用包含ID的行以及针对儿童的体重，BMI等的重复测量来组织。我想find每个人（最多9个logging）的一个variables（BMI）的最大值。我怎样才能查询每个ID的多行，并返回每个人的价值的最大值？一个非常简短的例子如下：HAVE： ID Date BMI 1 1 20 1 2 18 1 3 24 2 4 23 2 5 19 2 6 17 3 7 25 3 8 18 3 9 21 想 ID Highest BMI Corresponding date 1 24 3 2 23 4 3 25 7 另外，如果在SPSS或JMP（我现在还没有访问SAS）的情况下有办法做到这一点，请让我知道。谢谢！梅利莎

如何在Excel VBA中创build自动dynamic线图: 我有一个工作问题。我有一个包含大量信息的数据报告，我需要创build3个线图来表示随着时间的推移3个不同的值。时间也在报告中，对所有的价值来说都是同一时间。我无法在别处的论坛中find特定于我的解决scheme。数据报告的长度，行数有所不同。我需要做的是创build3个线形图，并将它们水平放置，在报告结尾下面几行。其中两个图有一个系列，第三个有两个系列。这是图表需要包含的内容：图1：随时间变化的RPM 图2：随时间推移的压力图3：步骤烧掉，需求随时间消耗我刚刚进入VBA是因为最近在工作中发生了位置变化，我对此知之甚less，但是我花了很多时间来弄清楚如何为同一报告编写其他macros。由于我的工作手册的口头expression不清楚，我附上了一份数据报告样本的链接。数据报告工作簿下载这是我到目前为止。它适用于第一个图表。现在我可以在代码中放入什么命名图表“RPM”并命名系列“RPM”？ Sub Test() Dim LastRow As Long Dim Rng1 As Range Dim ShName As String With ActiveSheet LastRow = .Range("B" & .Rows.Count).End(xlUp).Row Set Rng1 = .Range("B2:B" & LastRow & ", E2:E" & LastRow) ShName = .Name End With Charts.Add […]

EXCEL 2010 MACRO包含不同行数的连接单元: 我有10个超过10K行的Excel文件。我想连接一个已经被分解成不同行的描述字段。一些logging有两行，一些有三行，有些甚至有五六行！每一条logging都有一行，唯一的代码或行号。我已经尝试嵌套如果函数，但它确定何时有4行或更多的logging时，它变得太复杂了。该文件如下所示： AB CODIGO DESCRIPCIÓN R2 Dos Renglones 2R, Renglón Dos R3 Tres Renglones 3R, Renglón 2 3R, Renglón 3 R4 Cuatro Renglones 4R, Renglón 2 4R, Renglón 3 4R, Renglón 4 R5 Cinco Renglones 5R Renglón 2 5R Renglón 3 5R Renglón 4 5R Renglón 5 R21 Dos Renglones 2R, Renglón […]

根据特定列中的目标词列表提取行: 我有一个从完整句子中得到的基本频率数据列表，这样我就可以得到句子中所有单词不同时间的值（每个单词50个时间点）。数据看起来像这样（每个单词50分，每个单词5-8个单词，每套20个短语，3套…数据快速加起来）： Speaker Accent rowLabel ActualTime F0 1 102-1 N {SL} 0.00000000 105.954 2 102-1 N {SL} 0.03757985 105.954 3 102-1 N {SL} 0.07515970 105.954 4 102-1 N {SL} 0.11273954 105.954 … 130 102-1 N NOVEL 2.201260 115.82318 131 102-1 N NOVEL 2.208244 112.42151 132 102-1 N NOVEL 2.215228 108.82458 133 102-1 N NOVEL 2.222212 […]

如何将数据从一个工作表中的行复制到另一个工作簿中的另一个？: 我可以把一个体面的macros放在一起，做我所需要的，但是我忘记了这个范围每天都会改变。具体来说，行数会变得更高。现在我的macros通过并隐藏没有今天的date的任何行，然后将设置的范围复制到另一个工作簿中的工作表。我唯一的问题是，范围每天都会改变，所以我想我需要一种方法来复制只有其余数据隐藏的行中的数据，然后将其粘贴到其他工作簿。 Sub automate() Dim cell As Range For Each cell In Range("AB2:AB30000") If cell.Value < Date And cell.Value <> Empty Then cell.EntireRow.Hidden = True Next Range("K28336:K28388,O28336:O28388,P28336:P28388,Q28336:Q28388,R28336:R28388,S28336:S28388,T28336:T28388,U28336:U28388,V28336:V28388,Y28336:Y28388,AA28336:AA28388,AB28336:AB28388").Select Selection.Copy Workbooks.Open ("\\gvwac09\Public\Parts\Test\2014 IPU.xlsx") Sheets("Historical Data").Activate ActiveSheet.Range("c1").End(xlDown).Offset(1, 0).Select Selection.PasteSpecial Paste:=xlPasteFormats ActiveSheet.Paste 这是迄今为止我的macros。对不起，如果我没有正确格式化这个post，这是新的。

POI：意外的loggingtypesorg.apache.poi.hssf.record.HyperlinkRecord: 我正在处理一个简单的任务：读取Excel文件并将其转换为对象。虽然，我在阅读Excel文件（.xls）时遇到问题，我将从外部系统接收它（也许它们会自动生成它）。如果我打开它，只是做一个简单的保存（有或没有改变Excel文件中的任何东西），我的分析器逻辑工作正常。但是，如果我不编辑和保存文件，并尝试parsing原始文件，我在加载.xls文件时在这一行得到一个exception： HSSFWorkbook xlsWorkbook = new HSSFWorkbook(inputDocument); 以下是例外情况： java.lang.RuntimeException: Unexpected record type (org.apache.poi.hssf.record.HyperlinkRecord) at org.apache.poi.hssf.record.aggregates.RowRecordsAggregate.<init>(RowRecordsAggregate.java:97) at org.apache.poi.hssf.model.InternalSheet.<init>(InternalSheet.java:217) at org.apache.poi.hssf.model.InternalSheet.createSheet(InternalSheet.java:156) at org.apache.poi.hssf.usermodel.HSSFWorkbook.<init>(HSSFWorkbook.java:337) at org.apache.poi.hssf.usermodel.HSSFWorkbook.<init>(HSSFWorkbook.java:289) at org.apache.poi.hssf.usermodel.HSSFWorkbook.<init>(HSSFWorkbook.java:224) at org.apache.poi.hssf.usermodel.HSSFWorkbook.<init>(HSSFWorkbook.java:382) at org.apache.poi.hssf.usermodel.HSSFWorkbook.<init>(HSSFWorkbook.java:364) 我已经search了可能的解决scheme; 但从来没有find任何！有人能带我解决这个问题吗？ PS：我甚至尝试用最近版本的POI（3.12）加载.xls，但没有成功！谢谢

将模板行复制并粘贴到活动单元格下方的行中: 我的目标是可以select位于第1到第3行的三个行模板中的一个，并根据我在哪里使用光标将select插入到下面的一行。此代码工作正常，并插入选定的模板行： Sub InsertRowBelow() RowNumber = ActiveCell.Offset(1).Row SelectTemplate = InputBox("Which row level do you want to insert? 1 = Title, 2 = Subtitle, 3 = Task") Worksheets("Projektplan").Rows(SelectTemplate).EntireRow.Copy Worksheets("Projektplan").Rows(RowNumber).EntireRow.Insert Application.CutCopyMode = False Worksheets("Projektplan").Rows(RowNumber).Paste End Sub 但最后它会产生一个错误（ VBA错误438对象不支持这个属性或方法）。这是为什么？