Tag: 行

macros在文本之上插入空行不在之后: 下面的macros，我从现有的改编，应该插入一个空白行的单词TOTAL CALLS:后面的单词Summary: 。问题在于它在Summary:行之上添加了空白行，而不是在它之下。这可能是一个简单的修复，但我只是没有看到错误的地方，因为我不知道足够的VB，不能完全搞砸了。这个macros将帮助我避免每周一次手动添加大约400个空行。预先感谢您的任何帮助！ Sub Insert() Dim rng As Range Set rng = Range("D1") While rng.Value <> "" If rng.Value = "Summary" Then rng.EntireRow.Insert rng.Offset(1, 0) = "TOTAL CALLS" Set rng = rng.Offset(1) End If Set rng = rng.Offset(1) Wend End Sub

添加新行并将数据复制到该行: 我正在寻找帮助在VBA中创build一个新的行。列A：C是一般项目，列D：F是列A：C中的VBA公式驱动值。（基本上如果这样的话）我们的分析系统需要满足每个标准的单个项目。第1行符合两个标准; “Inq”和“High”。所以我需要在下面插入一个新的行，从第1行A：C复制数据，在D列input“High”。这样就有一行“Inq”和“High”的数据。每一行都会重复这个过程，不包括新添加的。对不起，这可能有点棘手，但无论如何我会帮忙的。我是新来的Stackoverflow，所以我不能发表我的表的图像。 —-以下是更新下面的代码对于第19列非常适用。它插入行，将值插入新行，并将“Lead”放在最后一列中。 Sub AddRow() Dim RowIndex As Long Dim Delta As Long RowIndex = 2 Do While Sheets("WeeklyReport").Cells(RowIndex, 1).Value <> "" Delta = 0 If Sheets("WeeklyReport").Cells(RowIndex, 19).Value = "Lead" Then ' Inserts new row Sheets("WeeklyReport").Cells(RowIndex + Delta + 1, 1).EntireRow.Insert ' Takes cells value […]

根据特定的条件将行移动到另一行的末尾: 我的工作表有不同数量的行。列从A到R，基本上包含名称和地址。在客户端名称中包含共同签名者，可以从10变为不同。我需要将共同签署者（1）行移动到客户端行的末尾。如果客户端包含多个Cosigner，则下一个共同签名者（2）行将被移动到共同签名者（1）信息的末尾。我可以得到第一个工作，但不知道如何循环通过工作表，并获得所有的共同签署者在正确的客户端行。这是我迄今为止。例 CLIENT# FIRST NAME LAST NAME DEBT_SSN STREET 00001 MICKEY MOUSE 000-00-0000 Address Number 1 (CS) DONALD DUCK 000-00-0001 Address Number 2 00002 MINNIE MOUSE 000-00-0002 Address Number 3 (CS) DAFFEY DUCK 000-00-0003 Address Number 4 (CS) BARNIE RUBBEL 000-00-0004 Address Number 5 在这个例子中，（CS）唐老鸭的信息将被移动到第2行的列S到AI（CS），Daffey Duck将移动到第4行的列S到AI。然后（CS）Barnie Rubbel将移动到第4排AJ到AZ。 Sub MOVECS() […]

excel – 根据第一个单元格中的数字，将单元格数据拆分为其他单元格: 我有一个单元格在Excel中包含以下数据 108-0,109-1,110-0,111-2,112-0,113-192,114-87,115-100,116-80,117-60 我需要创build一个脚本或语句，可以将单元格中的数据拆分为自己的单元格。像数据一样： 108-0将被放入数据0的单元格A108中，109-1将被放入数据1的单元格A109中。那将如何完成？任何提示我应该读什么？提前致谢我忘了提及Excel表格应该自动执行。我正在导入几百个这样的100-1值，所以它们应该被自动放入自己的单元格中。结果 – 这对我有用： Sub tst() Dim X As Variant X = Split(Range("A1").Value, ",") Range("A1").Resize(UBound(X) – LBound(X) + 1).Value = Application.Transpose(X) End Sub

VBA缓慢进程根据条件去除行: 我有一个VBA Excel代码与检查特定列中的值。如果该列中的行包含值“删除”，然后删除该行。代码运行良好，但速度很慢。任何想法如何让代码运行速度更快？ Dim rng1 As Range Dim i As Integer, counter As Integer 'Set the range to evaluate to rng. Set rng1 = Range("g1:g1000") 'initialize i to 1 i = 1 'Loop for a count of 1 to the number of rows 'in the range that you want to evaluate. For counter […]

使用Excel VBA对整行进行sorting: 我正在创build一个客户端注册，客户端可以使用button添加。我也有一个sortingfunction，可以让我在klantnr上sorting 。但问题是，每当我使用sortingfunction，它只sortingklantnr和从表单提供的附加信息保持在位。例如，这是我的用户表单：（ http://puu.sh/cw94k/ebf4510a24.png ）这是我的优秀表格：（ http://puu.sh/cw9nc/3a8e19a989.png ）当我添加另一行它sortingklantnr，但它不采取其他值，如Naam和Adres 。所以它需要对klantnr进行sorting，并用它来获取其他信息这是我的代码： Private Sub btn_Toevoegen_Click() Dim laatsteKlantNummer As Integer Range("B4:B13").End(xlDown).Select laatsteKlantNummer = ActiveCell.Value ActiveCell.Offset(1, 0).Value = txtKlant + 0 ActiveCell.Offset(1, 1).Value = txtNaam ActiveCell.Offset(1, 2).Value = txtAdres ActiveCell.Offset(1, 3).Value = txtWoonplaats ActiveCell.Offset(1, 4).Value = txtContact Me.Hide Range("B4:B13").Sort Key1:=Range("B4:B13"), Order1:=xlAscending End Sub

在VBA中引用行名称: 我有一个简单的VBA脚本来隐藏/显示基于另一个单元格的值的行。但我似乎无法引用基于名称的行..只有行号（随着我添加其他的东西！） If Not Intersect(Target, Range("CB10.2")) Is Nothing Then Select Case Target.Value Case Is = "Yes": Rows("36:36").EntireRow.Hidden = False Case Else: Rows("36:36").EntireRow.Hidden = True End Select End If 我想要做这样的事情，但得到一个'types错配'： If Not Intersect(Target, Range("CB10.2")) Is Nothing Then Select Case Target.Value Case Is = "Yes": Rows("CB10.3").EntireRow.Hidden = False Case Else: Rows("CB10.3").EntireRow.Hidden = True End Select End If […]

Excel VBA合并来自多行的数据: 我有一个非常大的XLS信息分布在多行，看起来像： TopName Name Mode Item1 Item2 Item3 Item4 —————————————————– Foo Name1 ModeX x() Foo Name2 ModeY x() Foo Name1 ModeX y() Foo Name1 ModeX y() Foo Name2 ModeY y() 我现在想要做的是将基于名称的数据合并到新的工作表或Excel文件。输出表应该看起来像这样 Name Mode Item1 Item2 Item3 Item4 ——————————————- Name1 ModeX x() y() y() Name2 ModeY y() x() 我自己会尝试通过VBA提出一个解决scheme，但肯定有人在这方面更好，可以发布一个简单的解决scheme？更新：我尝试了以下，但它根本不工作： Sub ConsolidateRows() 'takes rows and consolidate […]

插入新行并复制公式: 我在Excel中有这个表格：我在列N中有以下公式：在名为Adauga的buttonAdauga ，我有一个在5行之前添加新行的子例程： Sub Button3_Click() Sheets("Sheet1").Range("A5").Select ActiveCell.EntireRow.Insert Shift:=xlDown End Sub 但公式不会复制到新行中。我怎样才能修改我的代码复制公式呢？我尝试了一些方法，但我最终也复制了值。在行5之前插入行是重要的。

在Excel中查找等价值线的长度: 我正在做一些复发定量分析（更多信息在这里： https ： //en.wikipedia.org/wiki/Recurrence_quantification_analysis ），并希望计算我必须使用的时间序列的分层和捕获时间。我试图将我工作的Python代码移植到Excel中，但是在计算function的组合时遇到了困难，这将使我能够计算出代码生成的水平线的长度（水平线=垂直线，复发情节）。作为一个例子，说我的复发情节（真的只是一个布尔数组）看起来像这样： 1 1 0 0 1 1 1 1 1 0 1 0 1 1 0 0 1 0 1 1 1 0 1 1 1 我如何计算由'1'组成的所有线的长度？理想情况下，我的输出看起来像这样： 1 4 2 3 3 1 4 1 因为有4条长1线，3条长2线等。如果有人能说明这一点，我将不胜感激。如果解决scheme需要VBA，我很乐意为此目的熟悉它。