编写vba代码，将当前excel工作簿的所有工作表的G列进行剪切，并将剪切的列插入到所在工作表的A列前

### 回答1：
以下是示例代码：

Sub CutAndInsertColumnG()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Sheets
        ws.Range("G:G").Cut Destination:=ws.Range("A1")
    Next ws
End Sub

使用该代码，您可以在当前Excel工作簿的所有工作表中剪切G列，并将其插入到A列前面。

### 回答2：
编写VBA代码可以实现将当前Excel工作簿的所有工作表的G列剪切并插入到A列前。

首先，我们需要打开VBA编辑器。按下`Alt + F11`打开Microsoft Visual Basic for Applications窗口。

在左侧的项目资源管理器中，双击打开当前工作簿的VBAProject（工作簿名称）。

然后，双击打开“这工作簿”对象，将VBA代码写在其中。

代码如下：

Sub CutAndInsertColumn()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim rng As Range
    
    For Each ws In ThisWorkbook.Worksheets
        With ws
            If .Cells(1, "G").Value <> "" Then '检查G列是否有内容
                lastRow = .Cells(.Rows.Count, "G").End(xlUp).Row '获取G列最后一行的行号
                Set rng = .Range("G1:G" & lastRow) '定义剪切的范围
                
                rng.Cut '剪切G列
                .Columns("A").Insert Shift:=xlToRight '在A列前插入剪切的列
            End If
        End With
    Next ws
End Sub

在代码中，我们使用了一个For循环来遍历当前工作簿的每个工作表。然后，在每个工作表中，我们首先检查G列是否有内容。如果有内容，我们获取G列的最后一行的行号，并定义剪切的范围。接下来，我们执行剪切操作，并在A列前插入剪切的列。

完成代码编写后，按下`F5`运行代码。此时，代码将自动按照要求剪切并插入列。

请注意，运行代码前，请确保将所有对工作表的更改保存，以避免数据丢失。

### 回答3：
在VBA中，我们可以使用以下代码将当前Excel工作簿的所有工作表的G列进行剪切，并将剪切的列插入到所在工作表的A列前：

Sub CutAndInsertColumn()
    Dim ws As Worksheet
    Dim lastRow As Long
    
    Application.ScreenUpdating = False '关闭屏幕刷新，提高运行速度
    
    For Each ws In ActiveWorkbook.Worksheets '遍历所有工作表
        With ws
            lastRow = .Cells(.Rows.Count, "G").End(xlUp).Row '获取G列最后一行
                
            If lastRow > 1 Then '如果G列中有数据
                .Range("G1:G" & lastRow).Cut '剪切G列数据
                .Columns("A:A").Insert Shift:=xlToRight '插入到A列前
            End If
        End With
    Next ws
    
    Application.ScreenUpdating = True '打开屏幕刷新
    
    MsgBox "操作完成！"
End Sub

以上代码首先关闭了屏幕刷新，以提高代码的运行速度。然后，使用一个循环遍历了当前工作簿的所有工作表。在每个工作表中，我们通过`lastRow`变量获取了G列的最后一行。如果G列中有数据（`lastRow > 1`），则使用`Range("G1:G" & lastRow).Cut`剪切G列数据，然后使用`Columns("A:A").Insert Shift:=xlToRight`将剪切的列插入到A列前。最后，打开屏幕刷新，并显示一个消息框表示操作完成。

请注意，以上代码假设G列中有数据，并且剪切后的数据在目标列（A列前）为空。如果在目标列中有数据，剪切后的数据将覆盖目标列中的数据。