VBA陈旧的代码:Excel点滴

怎样用vba自动填充excel某列为空白处的数据为上一个单元格的数据？里面的空白处太多，用手工拉，或者编辑--向下填充的话工作量太大

没有装excel简单写了一下楼主自己完善。
Sub ttt()
Dim reg As Range
Set reg = ActiveSheet.UsedRange.SpecialCells(xlCellTypeBlanks)
For Each nx In reg
  nx.Value = nx.Offset(-1).Value
Next
End Sub
------------
给EXCEL一次输出5行数据，这5行保证不能被每页分开，如何做到啊？请教高手
一次给EXCEL输出5行，也就是保证每页的5行数据都是完整的，而不是被两页拆分开的，请教各位帮忙啊！

ActiveSheet.Range("6:6").PageBreak = xlPageBreakManual
ActiveSheet.Range("11:11").PageBreak = xlPageBreakManual
ActiveSheet.Range("16:16").PageBreak = xlPageBreakManual
================

Excel中如何能够得到前一个单元格的值
range.get_Offset(0, -1);
-------
excel中颜色ColorIndex为：1-56

将数值以文本格式存储。例
xlSheet.Columns("B:B").NumberFormatLocal = "@"

'将第二列的格式设为文本NumberFormatLocal = "@" '设为文本格式
xlSheet.Cells(2, 2).Value = "310002780307562123"
xlSheet.Cells(1, 2).Value = "123456789123456789"

列行数
xlSheet.UsedRange.Rows.Count
xlSheet.UsedRange.Cols.Count

Excel VBA程序中如何获取当前Excel文件所在的路径啊
Application.ActiveWorkbook.Path
Debug.Print workbooks.fullname

---------

本示例将 Sheet1 上 A1 单元格的值设置为 3.14159。
Worksheets("Sheet1").Range("A1").Value = 3.14159

本示例在 Sheet1 的 A1 单元格中创建一个公式。
Worksheets("Sheet1").Range("A1").Formula = "=10*RAND()"

本示例在 Sheet1 的单元格区域 A1:D10 上进行循环。如果某个单元格的值小于 0.001，则此代码将用 0（零）来取代该值。

For Each c in Worksheets("Sheet1").Range("A1:D10")
    If c.Value < .001 Then
        c.Value = 0
    End If
Next c

本示例在名为“TestRange”的区域上进行循环，并显示该区域中空白单元格的个数。
numBlanks = 0
For Each c In Range("TestRange")
    If c.Value = "" Then
        numBlanks = numBlanks + 1
    End If
Next c
MsgBox "There are " & numBlanks & " empty cells in this range"
本示例将 Sheet1 中单元格区域 A1:C5 上的字体样式设置为斜体。本示例使用 Range 属性的语法 2。

Worksheets("Sheet1").Range(Cells(1, 1), Cells(5, 3)). _
    Font.Italic = True