VBA - 复制某些单元格中的范围并将它们显示在其他工作表中答案

【问题标题】：VBA - copy the range in some cells and appear them into other sheetVBA - 复制某些单元格中的范围并将它们显示在其他工作表中
【发布时间】：2015-10-21 18:48:56
【问题描述】：

我想要一个执行以下操作的代码：如果 E 列单元格中文本值的最后 5 个字符是“（UK）”，则宏复制同一行中由 B、C、D、E 列中的 4 个单元格组成的范围，并粘贴到最后一个非- 工作表“Sheet 1”中相同列中的空行（因此必须将带有“（UK）”的所有范围 B-E 转移到工作表“Sheet1”）；

【问题讨论】：

这不是一个请为我编码的网站。该站点用于修复损坏的代码。请提供您尝试过的代码。
我觉得这个问题每周都会被问一次 XD
如果您想自己编写代码，以下网站可能会帮助您入门：homeandlearn.org。否则，您可以在这里聘请某人为您编码：careers.stackoverflow.com/employer

标签： vba excel

【解决方案1】：

我只是发布我的代码。希望@Jonathan 能学会。

Sub CopyC()

    Dim wb As Workbook
    Dim ws As Worksheet
    Dim sheet1lastrow As Long
    Dim lastrow As Long

    Set wb = ThisWorkbook
    Set ws = wb.Worksheets("sheet1")

    lastrow = ActiveSheet.Range("E" & Rows.Count).End(xlUp).Row
    sheet1lastrow = ws.Range("E" & Rows.Count).End(xlUp).Row



    For i = 1 To lastrow
        If Right(ActiveSheet.Cells(i, 5).Value, 5) = "(UK)" Then
            ActiveSheet.Range(Cells(i, 2), Cells(i, 5)).Copy
            ws.Cells(sheet1lastrow + 1, 2).PasteSpecial xlValues
            Application.CutCopyMode = False
            Application.CutCopyMode = True
        End If
    Next


End Sub

【讨论】：