用vba给我写一个5乘9的表格，并且第一行的第一列第二列第三列第四列占两个表格大小的程序

Sub CreateTable()
Dim i As Integer, j As Integer
Dim rng As Range

Set rng = Range("A1")

'设置第一行的单元格宽度
Range("A1:D1").ColumnWidth = 20

'循环创建表格
For i = 1 To 5
For j = 1 To 9
'设置第一行的第一列、第二列、第三列、第四列的单元格宽度
If i = 1 And (j = 1 Or j = 2 Or j = 3 Or j = 4) Then
Range(rng.Offset(i - 1, j - 1), rng.Offset(i, j - 1)).ColumnWidth = 40
End If

'创建单元格
Cells(rng.Row + i - 1, rng.Column + j - 1) = i * j
Next j
Next i
End Sub

相关问题

写一个VBA代码：表格A列值保持不变，“B列值、C列值“对应A列值进行批量转置

以下是一个简单的VBA代码示例，它可以实现您所描述的任务：

Sub TransposeValues()
    Dim lastRow As Long
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row ' 获取最后一行
    For i = 2 To lastRow ' 从第二行开始遍历
        value1 = Cells(i, "A").Value ' 获取A列的值
        value2 = Cells(i, "B").Value ' 获取B列的值
        value3 = Cells(i, "C").Value ' 获取C列的值
        Range("A" & i + 2).Value = value2 ' 将B列的值转置到A列下面的第三行
        Range("A" & i + 3).Value = value3 ' 将C列的值转置到A列下面的第四行
        Cells(i, "B").ClearContents ' 清空B列的值
        Cells(i, "C").ClearContents ' 清空C列的值
        i = i + 3 ' 跳过已处理的行
    Next i
End Sub

请在运行代码之前备份您的数据。此代码会修改您的数据。

帮我写个vba程序，需要将excel中前三列所有数据求和

好的，这里是一个简单的 VBA 程序，它会将 Excel 表格中前三列的所有数据求和，并将结果显示在第四列的第一个单元格中：

Sub SumColumns()
    Dim lastRow As Long
    Dim sum As Double
    Dim i As Long

    lastRow = Cells(Rows.Count, 1).End(xlUp).Row

    For i = 1 To lastRow
        sum = sum + Cells(i, 1).Value + Cells(i, 2).Value + Cells(i, 3).Value
    Next i

    Cells(1, 4).Value = sum
End Sub

这个程序中，我们首先定义了一个变量 `lastRow`，它表示表格中最后一行的行号。然后，我们使用一个循环来遍历表格中的所有行，将前三列的值相加，保存到变量 `sum` 中。

最后，我们将 `sum` 的值赋值给第四列的第一个单元格，这里使用了 `Cells` 函数来定位单元格，第一个参数表示行号，第二个参数表示列号。