VBA80集第12集作业上交贴：非空行

lunar2010

都说很牛，学习一下

majianxwyg

看看答案先~~
自己试了半天还是参考了才做出来的，哎

dtxczjzmp

学习人家的新思路！

xiaoni

ggggggggggggggggg

wangfengren

csmccdh 发表于 2011-7-6 18:25
不好意思，我开始忘用回复可见了！

**** 本内容被作者隐藏 ****

学习了。{:081:}{:171:}

124756422

本着学习的态度来看看答案~~~~{:011:}

ericqiwang

初学者,业余水平.请多指教.非常谢谢!!!
Option Explicit

Sub 第一题()
Dim x As Integer
    For x = 3 To 10
        If Cells(x, 2) > 0 Or Range("b" & x).End(xlToRight) > 0 Then
            Cells(x, 1) = "1"
        Else
            Cells(x, 1) = ""
        End If
    Next x
End Sub
Sub 第二题()
Dim wb As Workbook
Dim sh As Worksheet
Dim rg As Range
Dim rg1 As Range
Dim x As Integer
    Set wb = Workbooks.Open(ThisWorkbook.Path & "\A.xls")

    For x = 1 To Worksheets.Count
        Set rg = wb.Sheets(x).UsedRange
        Set rg1 = ThisWorkbook.Sheets("第2题").Range("a65536").End(xlUp).Offset(1, 0)

            rg.Copy rg1
    Next x

    wb.Close True

End Sub

qingdaoruiping

学习下啊。。。。

qcw811206

兰版主
辛苦了
学习学习，

Doble

我要看参考答案~