VBA在满足条件时复制单元格

价格

我有一个 VBA 代码,可以在满足条件时将一行中的某些单元格复制到另一个工作表中。

问题是,这仅适用于第一张表上的数据从 A 列开始,但出于美观原因我希望我的数据从 B 列开始。

这是我编写的代码,仅当我的数据从 A 列开始时才有效。

Private Sub CommandButton1_Click()

Dim lastrow As Long, erow As Long


'to check the last filled row on sheet named one

lastrow = Worksheets("one").Cells(Rows.Count, 1).End(xlUp).Row

For i = 2 To lastrow

If Worksheets("one").Cells(i, 3).Value = "Mobile" Then

    Worksheets("one").Cells(i, 1).Copy

    erow = Worksheets("two").Cells(Rows.Count, 1).End(xlUp).Row

    Worksheets("one").Paste Destination:=Worksheets("two").Cells(erow + 1, 1)

    Worksheets("one").Cells(i, 3).Copy

    Worksheets("one").Paste Destination:=Worksheets("two").Cells(erow + 1, 2)

End If

Next i


End Sub

我需要对我的代码进行哪些修改才能在 A 列为空的情况下运行?我假设我需要更改以下内容;

If Worksheets("one").Cells(i, 3).Value = "Mobile" Then to If Worksheets("one").Cells(i, 4).Value = "Mobile" Then

Worksheets("one").Cells(i, 3).Copy to Worksheets("one").Cells(i, 4).Copy

然而,这些修正仍然不起作用。

Excel 文件的图像

光轴

您对需要进行的可疑更改的想法是正确的,但您的代码在“lastrow =”行失败,因为它仍在查找 A 列中最后使用的单元格。

因此,您需要更改:

lastrow = Worksheets("one").Cells(Rows.Count, 1).End(xlUp).Row

lastrow = Worksheets("one").Cells(Rows.Count, 2).End(xlUp).Row

然后检查并更改其余的行,正如您正确怀疑需要做的那样。

本文收集自互联网,转载请注明来源。

如有侵权,请联系[email protected] 删除。

编辑于
0

我来说两句

0条评论
登录后参与评论

相关文章

来自分类Dev

Excel VBA-如果单元格值满足条件,则在工作表之间复制单元格

来自分类Dev

通过VBA在Excel中复制单元格公式

来自分类Dev

VBA,自动填充系列,而不是复制单元格

来自分类Dev

VBA-复制单元格区域(随机行)

来自分类Dev

Excel公式或VBA复制单元格删除空格?

来自分类Dev

Excel VBA:复制单元格内容

来自分类Dev

满足条件时选择单元格

来自分类Dev

如果相邻单元格符合条件,则复制单元格内容

来自分类Dev

Excel VBA复制单元格值,如果> 0到左侧的单元格

来自分类Dev

循环和复制单元格

来自分类Dev

删除行(基于条件)并复制单元格(基于条件)

来自分类Dev

VBA连接选定的满足条件的单元格

来自分类Dev

根据条件复制单元格并通过覆盖其他工作表中的单元格进行粘贴

来自分类Dev

复制单元格并移动到另一个单元格(偏移)-VBA BEGINNER

来自分类Dev

列表满足条件时替换单元格中的数据

来自分类Dev

Excel 2010:根据条件从工作表2>工作表1复制单元格块

来自分类Dev

基于条件的复制单元格到另一张纸被取消

来自分类Dev

添加新行并在特定条件下复制单元格的值

来自分类Dev

仅当当前单元格为空白时,才从上方Excel复制单元格值

来自分类Dev

Excel:仅当单元格在其他列中匹配时才可以复制单元格吗?

来自分类Dev

当描述单元格中有特定单词时,如何复制单元格值

来自分类Dev

两个工作簿之间的Excel VBA复制单元格

来自分类Dev

Excel VBA,如何从Column对象内复制单元格

来自分类Dev

Excel将VBA宏复制单元格循环到新工作表

来自分类Dev

VBA复制单元格+格式化而不使用剪贴板

来自分类Dev

vba-excel:如何使用for循环和if语句排除复制单元格区域

来自分类Dev

Excel VBA宏复制单元格并粘贴到另一个

来自分类Dev

如果其中有值,VBA 复制单元格

来自分类Dev

如果列包含数据,则复制单元格 A,Excel VBA

Related 相关文章

  1. 1

    Excel VBA-如果单元格值满足条件,则在工作表之间复制单元格

  2. 2

    通过VBA在Excel中复制单元格公式

  3. 3

    VBA,自动填充系列,而不是复制单元格

  4. 4

    VBA-复制单元格区域(随机行)

  5. 5

    Excel公式或VBA复制单元格删除空格?

  6. 6

    Excel VBA:复制单元格内容

  7. 7

    满足条件时选择单元格

  8. 8

    如果相邻单元格符合条件,则复制单元格内容

  9. 9

    Excel VBA复制单元格值,如果> 0到左侧的单元格

  10. 10

    循环和复制单元格

  11. 11

    删除行(基于条件)并复制单元格(基于条件)

  12. 12

    VBA连接选定的满足条件的单元格

  13. 13

    根据条件复制单元格并通过覆盖其他工作表中的单元格进行粘贴

  14. 14

    复制单元格并移动到另一个单元格(偏移)-VBA BEGINNER

  15. 15

    列表满足条件时替换单元格中的数据

  16. 16

    Excel 2010:根据条件从工作表2>工作表1复制单元格块

  17. 17

    基于条件的复制单元格到另一张纸被取消

  18. 18

    添加新行并在特定条件下复制单元格的值

  19. 19

    仅当当前单元格为空白时,才从上方Excel复制单元格值

  20. 20

    Excel:仅当单元格在其他列中匹配时才可以复制单元格吗?

  21. 21

    当描述单元格中有特定单词时,如何复制单元格值

  22. 22

    两个工作簿之间的Excel VBA复制单元格

  23. 23

    Excel VBA,如何从Column对象内复制单元格

  24. 24

    Excel将VBA宏复制单元格循环到新工作表

  25. 25

    VBA复制单元格+格式化而不使用剪贴板

  26. 26

    vba-excel:如何使用for循环和if语句排除复制单元格区域

  27. 27

    Excel VBA宏复制单元格并粘贴到另一个

  28. 28

    如果其中有值,VBA 复制单元格

  29. 29

    如果列包含数据,则复制单元格 A,Excel VBA

热门标签

归档