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

匿名 *发表于 2019-5-2 03:40* · 发表于 2019-5-2 03:40

good

匿名 *发表于 2019-5-2 03:40* · 发表于 2019-5-2 03:40

good qiu dana

匿名 *发表于 2019-5-2 04:23* · 发表于 2019-5-2 04:23

Sub No1()
'
' No1 Macro
'

'
Columns("B:D").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.FormulaR1C1 = "1"
Range("G4").Select
End Sub

雲科小新手 · 发表于 2019-5-3 20:58

Sub 第1題()
Intersect(Columns("A"), Range("B:D").SpecialCells(xlCellTypeConstants).EntireRow) = 1
End Sub
Sub 第2題()
Dim i As Integer, wbk As Workbook
Set wbk = Workbooks.Open(ThisWorkbook.Path & "\A.xls")
With ThisWorkbook.Sheets("第2題")
For i = 1 To wbk.Sheets.Count
If i = 1 Then
wbk.Sheets(i).UsedRange.Copy .Range("A1")
Else
wbk.Sheets(i).UsedRange.Offset(1, 0).Copy .Range("A" & .[A65536].End(xlUp).Row + 1)
End If
Next i
wbk.Close True
End With

复制代码

匿名 *发表于 2019-5-3 22:48* · 发表于 2019-5-3 22:48

nice

匿名 *发表于 2019-5-3 23:41* · 发表于 2019-5-3 23:41

fdsa

licy779 · 发表于 2019-5-4 12:01

chaodaan

wo4535101 · 发表于 2019-5-4 15:00

看看

biaobiaodi · 发表于 2019-5-5 22:12

想看下

匿名 *发表于 2019-5-7 23:29* · 发表于 2019-5-7 23:29

我呢分享下

		自动登录	找回密码
密码			注册