Tag: 行

删除连续的行EXCEL VBA

我的数据是在列A，我想要删除所有连续的行，如B列代码 If Range("A" & i).Value = Range("A" & i).Offset(1, 0).Value Then Rows(i & ":" & i).Delete shift:=xlUp End If 我写了脚本，但我不知道如何把它放在一个循环..任何帮助谢谢。

Excel – 单列中的string到多列中的字符

我是新的Excel VB。 目前，我想要做以下事情 – 从单元格读取。 像这样的“010111”（二进制）。 可以在表格1中的单元格A10中说明。 写入多个单元格，像这样的信息。 让我们说在表2.单元格B1到B6。 像第2页B1-0第2页B2-1第2页第3页第2页第2页第4页第2页B5-1第2页B6 -1另外，我想使其具有通用性，想要有一个for循环或类似的东西可以做到这一点的dynamic细胞。 即从纸张1-A（i）到纸张2-B（j）到B（j + n）。 请帮我吗？ 这是可能从string中读取单个字符。 我假设我们可以将二进制string作为string读取，然后可以将它们逐一放入列行中，使其对于任何行/列都是dynamic的。 谢谢，Prateek

如何自动匹配两个Excel表格的行中的长度？

我有一个Excel表的工作表。 每次我可以添加或删除表中的行。 我在同一个工作簿的另一个工作表中创build另一个表。 我希望自动更改该表的行数以匹配第一个表上的行数。 这是因为第二个表的第一列是指第一个表的第一列，所以行数必须相同。 所以，如果第一个表格有100行，第二个表格必须有100行。 如果我添加一行到第一个表，第二个表必须有101行。 如果我从第一个表中删除一行，第二个表必须有99行。 这有可能没有手动改变每次第二个表？

search某些文本的第一行，然后复制整个列

我对VBA相当陌生，在做一个看似简单的任务时遇到了很多麻烦。 我已经尝试了许多不同的代码使用这个网站，这是让我最接近我想要的，但它不会返回任何值。 这是我需要做的前提： 1）search工作表的整个第一行（A1，让我们说，Z1）的特定文本，如“closures” 2）如果在其中一列中find所需文本“Closed”，则复制该列中的所有值 3）将这些值从列中粘贴到另一个工作表（“Source_Workbook”）的J列 ****编辑**：我想列数据粘贴从第J行（10）行5后面的下一个空行开始粘贴。 在这种情况下，我使用“Offset”时遇到了麻烦。 另外，我只想要粘贴的值（保持粘贴数据的页面的格式）。 我的问题是，当我尝试执行“Range.PasteSpecial”时，此代码不断给我提供错误。 我希望我有正确的做法。 请让我知道，如果我能进一步澄清。 Dim rng As Range Dim cl As Object Dim strMatch As String strMatch = "Closed" 'Search first row for columns with "Closed" Set rng = Target_Workbook2.Sheets(2).Range("A1:Z1") For Each cl In rng If cl.Value = strMatch Then cl.EntireColumn.Copy Exit For With Source_Workbook2.Sheets(2) Sheets(2).Columns("J").Offset(5, 0).PasteSpecial […]

粘贴数组中的行

我一直在尝试几个小时从一个Excel工作表中的VBA数组粘贴一行。 代码应该看起来像这样： Dim wsSource As Worksheet Set wsSource = Sheets("Data Retrieval – Source") Dim wsDestination As Worksheet Set wsDestination = Sheets("Data Retrieval – Destination") Dim TableAbarSource TableAbarSource = wsSource.Range("A3:U299729") wsDestination.Range("A3:Z3") = ? 任何想法？ 非常感谢您的帮助！ 添加了我需要在下面进行优化的原始代码（工作正常）。 正如你所看到的，有将近30万个循环，所以将表格声明为variables会有一定的意义。 Sub DataRetrieval() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual 'Variable definitions 'Worksheets Dim wsSource As Worksheet Set wsSource = Sheets("Data […]

根据特定单元格中的值自动隐藏行和列

我试图编写一个电子表格，当A1=blank时，将隐藏大部分行和大约一半的列。 行将基于属性，每个属性有14行（第一行将包含主要信息;其余行将包含各种types的检查）。 列将是有关该属性的随机信息，包括一堆date。 我们的目标是当A1=blank ，电子数据表就是数据的摘要，但当A1=PropertyName时，关于这个属性的非常详细的信息将会打开。 主行以外的其他属性的其余行将保持隐藏状态。 所以，如果A1=PropertyName ，那么我希望该属性和列的行不被隐藏。 我尝试了通过Googlefind的各种方法，但是我对VBA有非常基本的理解，所以无法使用这些方法。 另外，我只find了分别隐藏行和列的方法（无论如何我都无法工作），而且我也没有经验来知道如何组合它们。 如果任何人都能在正确的方向上给我一个开始，我相信我可以用它来使剩下的工作。 如果您需要澄清我所说的任何事情，请询问。 感谢您的帮助。

使用Pandas DataFrame比较两个Excel文件与不同的标题，但相同的行数据

这里我试图比较两个excel文件。 Server_report有42列，Email_report有19列（其中5列与server_report完全不匹配）。 每个报告中有14个列匹配，但具有不同的标题。 当我打开这两个文件时，我会对三列进行sorting，以便将数据按照“交货”，“select数量”，“批量”（按server_report）和“交货”，“采购数量”，“批量select”根据email_reportsorting）。 我需要的是将sorting后的email_report与server_report进行比较（每个文件具有相同数量的行，并且可以在“Delivery”列进行索引）。 如果server_report上存在“缺失”信息，则需要使用从email_report中获取的信息填写。 之后，需要生成两个新文件。 包含所有原始42列的新server_report，其中包含来自email_report的更改。 包含比较过程中所做更改的新文件。 我的问题在这里是这篇文章的标题。 如何能比较两个文件不同的列/标题（不是所有可以映射到另一个）

使用Python的Excel数据

我有一个旧的excel电子表格，有关系数据库types格式的大量数据，有一个主要的主键，我需要通过。 我想比较一些行，但是有很多条目（成千上万行，几十列），Excel并没有真正的内置function来做到这一点。 环顾四周后，我发现提取数据的最佳方式是使用Python脚本，但是在Python或任何语言中我都没有编程技巧。 我需要在键列中查找重复项，然后检查在同一列中是否有重复的行，如果是这样，则将它们合并到一个新行中，然后将新的excel文件/工作表从合并的行中分离出来。 我不知道这听起来是不是太复杂了，我在这里是新来的，所以我做了一些search互联网的研究，看看我是否能find任何脚本来做，但没有真正的运气…这里是最接近的post我发现可能与我想要的有关，但我通常发现的是想要将两个不同的excel文件合并在一起： http://pbpython.com/excel-file-combine.html 试图用Python 2.7将两个Excel文件合并成一个Excel文件 （我有更多的链接，但只能张贴两个。） 基本上我正在寻找重复的行，并希望将它们合并成一个新的文件或电子表格在Excel中，将它们从非愚蠢的东西中分离出来，并把它们全部放回到一起。

Excel to Javascript – 忽略从Excel复制的列中的新行字符

我正在研究AngularJS中的单页面应用程序。 有一个文本区域，用户可以从Excel中粘贴一些行。 所有行将具有相同的列数。 我需要处理这个粘贴的数据，并将其转换为一个JavaScript数组。 这不是问题，因为我可以用\ r \ n或\ n或\ r分割string，并用\ t分割字段。 如果在其中一列中存在新的行字符，则会出现问题。 但在这种情况下，该列用引号（“）括起来。 我明白，正则expression式可以在这里有所帮助。 然而，我正在努力构造一个正则expression式来忽略带有引号的新行字符。 //PastedItemData will have the following data 1PS133-0FGD61**\t**"Text with**\r\n**multiple**\r\n**lines"**\t**1**\t**5932.2**\r\n**2PS133-0FGD61**\t**"Simple text with no new lines"**\t**2**\t**1234.5 var PastedItemDataArray = PastedItemData.split("\r\n"); ///use regex here? 我相信别人可能会面临类似的忽略数据新线的问题。 也许可能有不同的方式比使用正则expression式。 有没有任何想法？ 谢谢。

FormButtons错位？

我目前有一个问题，表单button与行不重合。 我正在运行下面的代码，并获得不同的结果，每次。 根据下面的快照，看起来除非我缩小到100％的视野，否则会发生以下错位。 有没有人有办法解决吗？ 主要程序： Private Sub Workbook_Open() ' Sub ColumnA_Buttons() Dim buttons As Button Dim rng As Range Dim LineQty As Variant Application.ScreenUpdating = False ActiveSheet.buttons.Delete LineQty = 20 For i = 1 To LineQty Set rng = ActiveSheet.Range(Cells(i, 1), Cells(i, 1)) Set buttons = ActiveSheet.buttons.Add(rng.Left, rng.Top, rng.Width, rng.Height) With buttons .OnAction = "Buttons" […]