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

stbey

提示有不良信息，代码不知道包含啥不良信息了

xxd36xxd

OK看看答案

xxww_vip520

新人前来报道，最近开始学习VBA，感觉好难啊。

luors

我又来了

kuroT

第一题：
Sub x1()
Dim rg As Range
Columns("b:d").SpecialCells(xlCellTypeConstants).Select
Set rg = Selection
Application.Intersect(Columns(1), rg.EntireRow).Value = 1

End Sub

kuroT

第2题答案

Sub x2()
Dim wb1 As Workbook, x As Integer, rg As Range
Set wb1 = Workbooks.Open("D:\BaiduNetdiskDownload\VBA80\第12集：特殊单元格定位\A.xls")


For x = 1 To wb1.Sheets.Count
If x < 2 Then
wb1.Sheets(x).UsedRange.Copy (Workbooks("练习题").Sheets("第2题").Range("a1"))
Else
wb1.Sheets(x).UsedRange.Offset(1, 0).Copy (Workbooks("练习题").Sheets("第2题").Range("a65536").End(xlUp).Offset(1, 0))


End If
Next x


End Sub

lmsun789

12344

YOYO666

给力

YOYO666

666

YOYO666

liuts 发表于 2011-7-5 14:56
**** 本内容被作者隐藏 ****

666