Tag: 行

在行上移调并重复列标题: 我有很多列的列表。我想重复每一行的列标题，并把所有的列只有两个。我从这开始：结果应该是：有没有人有任何想法，如果我能做到这一点？谢谢

VBA中的高效循环: 我已经写了一个VBAmacros的工作原理，但因为数据库也很大，所以耗时太长。我知道这可以通过数组优化，但我不知道如何做到这一点。有人可以帮我吗？ 'Identify how many rows are in the file finalrow = ActiveSheet.Cells(Rows.Count, 6).End(xlUp).Row 'fill the empty fields which requires the part number and description For i = 2 To finalrow If Cells(i, 3) = 0 Or Cells(i, 3) = "————" Or Cells(i, 3) = "e" Or Cells(i, 3) = "111)" Or Cells(i, 3) […]

使用某些条件复制并粘贴多行: 我必须写一个macros来有条件地复制某些行。如果用户在任何空单元格中input一些数字，比如说A55，那么如果在A1中find该数字，则该数字将与列A（或A1）匹配，那么应该select整行。如果在列A的多个地方find这个数字，那么它应该复制所有的行并将它们粘贴到新的工作表中，如sheet2。这是我的代码，它只访问所有的行中findA55号码，我不知道如何复制选定的行： copyandpaste() Dim x As String Dim matched As Integer Range("A1").Select x = Worksheets("Sheet1").Range("A55") matched = 0 Do Until IsEmpty(ActiveCell) If ActiveCell.Value = x Then matched = matched + 1 End If ActiveCell.Offset(1, 0).Select Loop MsgBox "Total number of matches are : " & matched End Sub

excel基于列值合并行: 所以我一直在寻找我所需要的信息，并没有真正find一个简单的解决scheme，但似乎应该有一个。基本上，我有以下约翰| Doe | 123 Wallaby Ln | 00123 | | | 约翰| Doe | | 00123 | xxx | yy | 简| Doe | | 01234 | | zz | 简| Doe | 哔哔声 | xx | | 我需要约翰| Doe | 123 Wallaby Ln | 00123 | XXX | yy | 简| […]

当程序更改边框行时Excel 2007图表不更新: 我很确定这是一个错误，但也许我错过了一些东西。所以表面图（所有行都可见）就是我想要的：（编辑：好吧，我试图张贴图像，但这个东西是不让我发帖导致其新的帐户..但你明白了）为了做到这一点，我创build了我的数据表，然后运行下面的代码： Sub test() Charts.Add ActiveChart.charttype = xlSurface test2 End Sub Sub test2() Dim a For Each a In ActiveChart.Legend.LegendEntries a.LegendKey.Format.Line.Visible = msoTrue a.LegendKey.Format.Line.ForeColor.RGB = RGB(0, 0, 0) ActiveChart.Refresh Next a End Sub 如果我运行test()虽然，我得到的图表，但没有行（这是Excel的默认值）。如果我再次重新运行test2 ，这些行就会被填满。当然，这绝对没有意义。我绝对不是一个新手（我已经帮我在个人账户中回答了几个问题，但是在工作时被阻止了）。我已经尝试DoEvents而不是ActiveChart.Refresh以及但没有骰子。我也很确定它在Excel 2010（这是我第一次在家里尝试这个）正常工作，所以这似乎是在2007年的错误。错误或否我必须在2007年工作，所以我正在寻找解决scheme。有人吗？

默认值为没有macros的新行的单元格（Excel）: 我想插入一个默认值，以我的工作表中的特定单元格，但此默认值应该照顾在工作表中插入的新行。我不能用这个macros。谢谢

如何根据表格中的行数select一系列单元格？: 我目前有多个数据表，其中包含所有这些信息的AI列，我想在每个列中select一个单元格范围。列A取决于纸张在150行到450行之间变化。我想select列AI，但只能通过列A中find的最后一行。我使用最后一行function： LastRow = Range("A65536").End(xlUp).Row 如何让macrosselect列到最后一行？我希望它的function，如果它写： Range("A1:ILastRow").Select “LastRow”是最后一列的编号。谢谢，詹姆斯

find两个匹配的行并显示第三个数据（Excel）: 所以我有两张床单。第一张纸包含两列品牌| 裙边第二张纸也由两列组成。品牌| 左转（％）因此，如果第一张图片中的BRAND行值与第二张图片中的BRAND行值相匹配，我想在LEFTOVER列中的第一张图片行中显示匹配的LEFTOVER（％）行值。有种迷失在这里。欣赏任何想法。谢谢。

Excel选项卡在一定数量的列之后换行: 我想要设置一个Excel电子表格用于条形码扫描器的数据input。条形码扫描器发送条形码，然后根据其编程的方式发送标签或回车键。基本上我想设置一个Excel工作表，我们可以扫描每个条目的6个条形码，扫描器每次都会跳到下一列，然后当它到达第6列时，下一个选项卡将移动到一个新行下一个产品。我希望这是有道理的。它可以在MS单词中完成…例如，如果您创build一个具有6列的表格，并且推送标签7次，它将移动到下一行。我想在Excel中做到这一点。谢谢