Excel Vb如何判断一列数据下面空白处添加指定文字及边框

不建议用VBA，而是将签字部分移至页脚，如果一定要这么做，可能要考虑表格重新绘制（当然，下面代码没有考虑重绘，如果人数变化，就会出现问题）：

Sub Test()

    r = Range("C65536").End(xlUp).Row + 2

    Range("F" & r & ":H" & r + 2).Select

    With Selection.Borders(xlEdgeLeft)

        .LineStyle = xlDouble

        .Weight = xlThick

    End With

    With Selection.Borders(xlEdgeTop)

        .LineStyle = xlDouble

        .Weight = xlThick

    End With

    With Selection.Borders(xlEdgeBottom)

        .LineStyle = xlDouble

        .Weight = xlThick

    End With

    With Selection.Borders(xlEdgeRight)

        .LineStyle = xlDouble

        .Weight = xlThick

    End With

    With Selection.Borders(xlInsideVertical)

        .LineStyle = xlContinuous

        .Weight = xlThin

    End With

    With Selection.Borders(xlInsideHorizontal)

        .LineStyle = xlContinuous

        .Weight = xlThin

    End With

    With Selection.Interior

        .Pattern = xlSolid

        .PatternColorIndex = xlAutomatic

        .Color = 52428

        .TintAndShade = 0

        .PatternTintAndShade = 0

    End With

    Range("F" & r) = "生产经理"

    Range("F" & r + 1) = "财务经理"

    Range("F" & r + 2) = "销售经理"

    Range("H" & r & ":H" & r + 2) = "签字确认"

End Sub

visio判断图形的使用方法如下：

1、打开Visio软件。依次点击“文件”，“新建”，“流程图”，选择“基本流程图”。 2、绘制流程节点。把绘制流程图所需“形状”，拖拽到绘图区。 3、绘制流程线。选择“连接线工具”进行连线绘制。 4、标识流程方向。选择箭头方向，绘制流程方向箭头。 5、添加文字。在流程节点及方向等需要说明的位置添加文字，形成完整的流程图。

文本框中的图片版式只默认为“嵌入型”，不能再设置。

可点文本框的边框——右键——设置文本框格式——文本框——转换为图文框——确定；

再点其中的图片——右键——设置图片格式——版式——四周型（或紧密型）——高级——文字环绕——选择合适的——确定。

这就可以编辑文字环绕了。

一楼没看清楚，楼主不是要“图片环绕”，而是“文字环绕”。

回答者： Stcxj - 十五级 2010-11-12 13:33

补充：看你的附图，你的文本框里面并没有文字，你何必要用文本框添加图片呢？直接在页面上插入图片不就成了？再设置图片版式为四周型或紧密型（我上面介绍过）。

---