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

多能古偶 · 发表于 2021-8-6 16:40

打卡

junior · 发表于 2021-8-9 15:36

Sub x12题1()
Dim RG As Range
Set RG = Intersect(Columns("q:r"), Rows("1:100")).SpecialCells(xlCellTypeConstants).EntireRow
Intersect(RG, Columns("p")) = 1
End Sub
Sub x12题2()
Dim x As Integer, wb1 As Workbook, wb2 As Workbook
Set wb1 = Workbooks.Open(ThisWorkbook.Path & "\A.xlsx")
Set wb2 = Workbooks("工作簿1")
   For x = 1 To wb1.Sheets.Count
      If x = 1 Then
      wb1.Sheets(x).UsedRange.Copy wb2.Sheets("12集").Range("A21")
      Else
      wb1.Sheets(x).UsedRange.Offset(1, 0).Copy wb2.Sheets("12集").Range("A65536").End(xlUp).Offset(1, 0)
      End If
   Next x
wb1.Close True
End Sub

WOW1900 · 发表于 2021-8-9 16:58

学习学习

温柔了岁月 · 发表于 2021-8-11 16:54

YDSVBAXUEXI · 发表于 2021-8-15 22:54

学习学习

mafect · 发表于 2021-8-22 09:28

学习一下

binghui0608 · 发表于 2021-8-23 16:44

看答案

hfffffzcai · 发表于 2021-8-23 22:45

我来学习的，还不会编写

15673475120 · 发表于 2021-8-26 10:55

学习来了

LEESINXT · 发表于 2021-9-2 10:47

学习

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