UC知道excel中用VB编辑器写一段代码。内容是每行内容前插入相同的内容
来源：百度知道 编辑：UC知道 时间：2024/05/31 13:31:07
用excel做了个表格。现在需要做成工资表的样式。所以现在需要把每一行前面加上8行空格再加上一行标头内容。
需要大侠帮助写一段 VB代码。
tbwind 给我写的公式代码发给大家研究一下
=IF(AND(MOD(ROW(),9)<>{1,2}),"",INDEX(Sheet1!$A:$Z,IF(MOD(ROW(),9)=1,1,(ROW()-2)/9+2),COLUMN()))
在某些情况下用这个公式还是非常方便的。我个人觉得。由于没有联系上ARTERIOSCLEROS这个分。我加给tbwind 了。谢谢大家
需要大侠帮助写一段 VB代码。
tbwind 给我写的公式代码发给大家研究一下
=IF(AND(MOD(ROW(),9)<>{1,2}),"",INDEX(Sheet1!$A:$Z,IF(MOD(ROW(),9)=1,1,(ROW()-2)/9+2),COLUMN()))
在某些情况下用这个公式还是非常方便的。我个人觉得。由于没有联系上ARTERIOSCLEROS这个分。我加给tbwind 了。谢谢大家
用公式或VBA都可以实现。你可以下载百度HI，然后把你的文件或示例文件发给我。
在Excel里建一个CommandButton，代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub CommandButton1_Click()
Dim n As Integer, i As Integer
n = InputBox("请输入行数")
For i = 1 To 2 * n - 1 Step 2
Range("A" & i & ":" & "H" & i).Insert
Cells(i, 1).Value = "第一列的内容"
Cells(i, 2).Value = "第二列的内容"
'……
Cells(i, 8).Value = "第八列的内容"
Next
End Sub
有问题找我。因为我不明白什么叫做“8行空格”，而且那个文件的格式我不清楚，我是按默认情况作的。