能不能用VBA代码实现把原表内容不打印，只打印填写部分

是的，你可以使用VBA代码实现只打印填写部分的功能。下面是一个简单的代码示例，可以帮助你实现这个功能：

Sub PrintFilledCells()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    
    '设置打印范围为当前活动工作表
    Set ws = ActiveSheet
    
    '循环遍历工作表中的所有单元格
    For Each cell In ws.UsedRange
        '如果单元格不为空并且不是表头，则添加到打印范围中
        If cell.Value <> "" And Not cell.Row = 1 Then
            If rng Is Nothing Then
                Set rng = cell
            Else
                Set rng = Union(rng, cell)
            End If
        End If
    Next
    
    '设置打印区域为填写部分
    If Not rng Is Nothing Then
        rng.PrintOut
    End If
End Sub

在这个代码中，我们首先遍历了当前工作表中的所有单元格，并将不为空且不是表头的单元格添加到打印范围中。然后，我们将打印区域设置为这些单元格，最后执行打印命令打印填写部分。

相关问题

用vba写一个不打印固定行的代码

以下是VBA代码示例，用于在Excel中隐藏指定行并避免在打印时打印这些行：

Sub HideRows()

Dim ws As Worksheet
Set ws = ActiveSheet

'隐藏行2到6
ws.Rows("2:6").Hidden = True

'设置打印区域，排除隐藏的行
ws.PageSetup.PrintArea = "$A$1:$F$100"
ws.PageSetup.PrintQuality = 600
ws.PageSetup.PrintTitleRows = ""
ws.PageSetup.PrintTitleColumns = ""

End Sub

在此示例中，我们隐藏了第2到第6行，并确保在打印时这些行不会被打印出来。我们还设置了打印区域，从A1到F100，并排除了隐藏的行。请根据您的需要进行修改。

VBA代码实现多表关联

如果要在Excel中使用VBA代码实现多表关联，可以尝试以下步骤：

1. 打开Excel文件，按下Alt+F11打开VBA编辑器。
2. 在VBA编辑器中，选择Insert -> Module，创建一个新的模块。
3. 在新模块中添加以下代码：

Sub MultiTableJoin()
    Dim ws1 As Worksheet, ws2 As Worksheet, ws3 As Worksheet
    Dim i As Long, j As Long, k As Long
    Dim lRow1 As Long, lRow2 As Long
    Dim vArray1 As Variant, vArray2 As Variant, vArray3 As Variant
    Dim dIndex As Object
    
    '设置要关联的两个表
    Set ws1 = ThisWorkbook.Sheets("Sheet1") '表1
    Set ws2 = ThisWorkbook.Sheets("Sheet2") '表2
    
    '获取表1和表2的数据范围
    lRow1 = ws1.Range("A1").End(xlDown).Row
    lRow2 = ws2.Range("A1").End(xlDown).Row
    
    '将表1和表2的数据读入到数组中
    vArray1 = ws1.Range("A1").Resize(lRow1, 2).Value
    vArray2 = ws2.Range("A1").Resize(lRow2, 2).Value
    
    '创建一个字典对象，用于存储关联后的数据
    Set dIndex = CreateObject("Scripting.Dictionary")
    
    '将表1和表2的数据进行关联
    For i = 1 To lRow1
        For j = 1 To lRow2
            If vArray1(i, 1) = vArray2(j, 1) Then
                dIndex.Item(vArray1(i, 1)) = dIndex.Item(vArray1(i, 1)) & "," & vArray2(j, 2)
            End If
        Next j
    Next i
    
    '将关联后的数据填充到另一个表中
    Set ws3 = ThisWorkbook.Sheets.Add '创建一个新表
    ws3.Name = "Result" '将新表命名为Result
    vArray3 = dIndex.Items
    k = 1
    For i = 0 To dIndex.Count - 1
        vArray3(i) = Mid(vArray3(i), 2) '去掉第一个逗号
        vArray3(i) = Split(vArray3(i), ",") '将数据转换为数组
        For j = 0 To UBound(vArray3(i))
            k = k + 1
            ws3.Cells(k, 1) = dIndex.Keys()(i)
            ws3.Cells(k, 2) = vArray3(i)(j)
        Next j
    Next i
    
    '删除原始数据
    ws1.Range("A1").Resize(lRow1, 2).ClearContents
    ws2.Range("A1").Resize(lRow2, 2).ClearContents
    
End Sub

4. 在Excel中准备两个需要关联的表，然后运行上面的代码即可。

该代码将选定的两个表中的共同列进行关联，并将结果输出到一个新的表中。要修改输入和输出的表，请更改代码中的“Sheet1”、“Sheet2”和“Result”。