Excel+VB, 怎样用0填补,使每组数据变成一样多呢?

发布网友 发布时间：2024-09-27 00:13

我来回答

共4个回答

热心网友 时间：2024-10-21 19:58

VB里没有试过,在Excel+VBA里可以用下面的方法实现你要的功能.
取当前表格的总行数,然后与每列的总行数相比较,不足的补0

Sub Macro1()
MAXROW = ActiveSheet.UsedRange.Rows.Count '获得表格总行数
MAXCOL = ActiveSheet.UsedRange.Columns.Count '表格总烈数
For I = 1 To MAXCOL '循环所有列
If Range(Chr(I + 64) & "65536").End(xlUp).Row < MAXROW Then '判断每列的行数是否小于总行数
CEROW = MAXROW - Range(Chr(I + 64) & "65536").End(xlUp).Row '计算需要补0的行数
For Y = 1 To CEROW '在列最上面补0
Cells(1, I).Select
Selection.Insert Shift:=xlDown
ActiveCell.FormulaR1C1 = "0"
Next Y
End If
Next I
End Sub

热心网友 时间：2024-10-21 19:58

Sub yueliang_914()
Dim mROW, CEROW, i, j, k, m As Integer

k = Range("a" & [a65536].End(xlUp).Row).Rows

For i = 1 To k '循环所有行
m = 0
For j = (i - 1) * 10 + 2 To i * 10 + 2
If Cells(j, 1) = i Then m = m + 1
Next
CEROW = 10 - m '计算需要补0的行数
If CEROW Then
Range(Cells((i - 1) * 10 + 2, 1), Cells(CEROW + (i - 1) * 10 + 1, 2)).Select
Selection.Insert Shift:=xlDown
Selection.FormulaR1C1 = "0"
End If
Next i
End Sub

热心网友 时间：2024-10-21 19:59

没理解，说清楚一点

热心网友 时间：2024-10-21 19:59

Excel表里的数据？