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

世纪boy · 发表于 2017-8-6 20:25

你好，怎么可以看到隐藏的内容

coolboyhy · 发表于 2017-8-7 09:02

kankan

pycwn · 发表于 2017-8-9 10:02

mmmmmmmmmmmmmmmm

monroe30 · 发表于 2017-8-9 19:07

Sub A1()

If Sheets("第1题").Range("B:D").Select <> "" Then
Sheets("第1题").Range("A").Select = "1"
Else
Sheets("第1题").Range(A).Select = ""
End If

End Sub

conquer灬k · 发表于 2017-8-9 19:49

学习学习

竹影摇曳 · 发表于 2017-8-10 21:57

来看看

franciscob · 发表于 2017-8-10 22:03

我是来向大家学习的

duuhan · 发表于 2017-8-10 23:27

learn

duuhan · 发表于 2017-8-10 23:54

Sub b()
Set wb = Workbooks.Open(ThisWorkbook.Path & "\A.XLS")
For Each sht In wb.Sheets
sht.UsedRange.Offset(1, 0).Copy ThisWorkbook.Sheets("µÚ2Ìâ").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Next
wb.Close
End Sub

复制代码

roger18 · 发表于 2017-8-12 17:55

学习了

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