Excel宏和VBA，将单元格范围复制到另一个工作表（转置并基于另一个值）

Question

我曾尝试从不同的线程开始弗兰肯斯坦的解决方案，但我是VBA和编程的新手，因此进展不太顺利...

以下是一些基本信息：

• 我在同一工作簿中有2个工作表（数据库和数据条目）
• 它们包含相同的标题，但是是转置的（数据库在列中包含标题，而数据条目在行中包含标题）

现在，我正在寻找3件事（最好是在一个紧凑的解决方案中）

1. 有一个命令按钮，用于将最新范围（最左边的列）从数据输入复制并转置到数据库。 （这在下面的代码中完成）

2. 应当根据数据输入表上的某个单元格值执行此操作（理想情况下，该单元格可以保留复制范围的一部分，但这并不重要）

3. 从数据输入表中删除原始范围。

正如我说过的那样，我刚开始使用VBA，所以我完全不确定该怎么做，我已经附加了到目前为止收集到的内容（不包括Nr.2，总体上感觉非常麻烦）。 很感谢任何形式的帮助！

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    Dim xSheet As Worksheet
    Set xSheet = ActiveSheet
        If xSheet.Name <> "Definitions" And xSheet.Name <> "fx" And xSheet.Name <> "Needs" Then
            xSheet.Range("E6:E200").Copy
            Worksheets("Sheet1").Range("E6:AZ6").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
        End If

    Application.ScreenUpdating = True
End Sub

Answer 1

检查这一。 它检查E10的值。 如果为“ Y”，则从原始位置复制和删除数据。 否则，它会向用户显示一条消息。

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    Dim xSheet As Worksheet
    Set xSheet = ActiveSheet
        If xSheet.Name <> "Definitions" And xSheet.Name <> "fx" And xSheet.Name <> "Needs" Then
            If xSheet.Range("E10")="Y"
                xSheet.Range("E6:E200").Copy
                Worksheets("Sheet1").Range("E6:AZ6").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
                xSheet.Columns("E").Delete
            Else
                MsgBox("Data entry not ready!")
            End If
        End If

    Application.ScreenUpdating = True
End Sub