[已解决]VBA 非空单元格写入另一工作表中

梦想2008

 

CevNt3P2.rar (5.86 KB, 下载次数: 17)

2010-4-10 20:37 上传

点击文件名下载附件
VBA 非空单元格写入另一工作表中

[此贴子已经被作者于2010-4-10 22:03:57编辑过]

最佳答案

月排行榜 / 总排行榜

爱疯

2010-4-10 22:18

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim r&, arr

    r = Target.Row
    If Cells(r, 3) <> "" Then
        arr = Cells(r, 1).Resize(1, 3)
        Sheets("sheet2").Range("A65536").End(xlUp).Offset(1, 0).Resize(1, 3) = arr
    End If
End Sub

PS:再改就和关题相似了[em11]

跳转到最佳答案楼层

wsfsy

要求不明确，容易翻船，到另一表中怎样的格式？

梦想2008

要的内容是第一列的数据和第三列的数据，而且要重复写入的，

就是以后我还可以在第三列输入内容，可以在另一张表最后一个空单元格，继续写入数据，不知道我的表达清楚不！！

wsfsy

最好把到到另一表的样子也贴出来，或者上附件。

梦想2008

我用的是2007，是在网吧，没有的，我刚刚下载的，害怕有人打不开，所以，用图片了，！！谢谢 大家可以帮助我，

爱疯

还可以在第三列输入内容，可以在另一张表最后一个空单元格，继续写入数据

不明白意思

[em11]

wsfsy

我的理解能力比较低，是不是可以讲到另一表只是去掉B列后的样子。

[em06]

wsfsy

我不费这劲了，爱疯你来吧，我闪。[em01]

梦想2008

QUOTE:

以下是引用wsfsy在2010-4-10 20:42:00的发言：

我的理解能力比较低，是不是可以讲到另一表只是去掉B列后的样子。

[em06

说的结果一样，可是我是这样理解的，就是第三列有内容的，就追加到另一张表中，可是如果第三列有内容，B列的内容还是要的！！，，

[此贴子已经被作者于2010-4-10 20:50:18编辑过]

梦想2008

期待高手出现！