[已解决]求在B例每填上一个单元格内容就自动增加一行，各位帮帮忙，谢谢了！

linyaya

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>liangnan1986</i>在2010-6-19 17:39:00的发言：</b><br/><p>学习下2楼的</p></div><p></p>

linyaya

<p>看了下，好象没人理解楼主的意思。。。</p>

BAIXINGR

看下

linyaya

看看这个是不是楼主要的
private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Count = 1 Then
       If Target.Column = 2 Then
          If Target.Value = "" Then Range("b" & Target.Row).EntireRow.Delete   
              Cells(Target.Row + 1, 2).EntireRow.Insert     
              cells(target.row,3).copy cells(target.row+1,3)
              cells(target.row,4).copy cells(target.row+1,4)         
       End If
End If
End Sub
至于边框线就可以用条件格式来设置了附件错了,重新传了下
[此贴子已经被作者于2010-6-20 10:03:39编辑过]

zhqsl

[em01]

pangwen_822

虽然达不到偶的要求，但还是谢谢你！

pangwen_822

谢谢！不错～～

pangwen_822

<p>呵呵！可能只是你不懂吧～～</p><p></p><p>看下14楼正是我所要的，谢谢！14楼～～</p>

pangwen_822

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>linyaya</i>在2010-6-19 20:49:00的发言：</b><br/><p>看看这个是不是楼主要的</p><p>rivate Sub Worksheet_Change(ByVal Target As Range)<br/>If Target.Count = 1 Then<br/>If Target.Column = 2 Then<br/>&nbsp;&nbsp; If Target.Value = "" Then Range("b" &amp; Target.Row).EntireRow.Delete<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ElseIf Target.Value &lt;&gt; "" Then Cells(Target.Row + 1, 2).EntireRow.Insert<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End If<br/>&nbsp;End If<br/>End Sub<br/>至于边框线就可以用条件格式来设置了<br/></p><br/>附件错了,重新传了下<br/></div><p>谢谢你！非常好，我对VBA是一知单半解的，再次谢谢你这正是我想要的～～</p>

[此贴子已经被作者于2010-6-21 9:01:06编辑过]

平原

学习一下。