B站VBA工作实例5：插入不重复值

1、如何找到合计所在的单元格？

Rng =sheet1. Cloumns(2). Find(what: ="合计"）

K=rng. Rows. Count (❌❌❌❌）

K=rng. Row(✓✓✓）

2、如何批量插入行？

  • 确定需要插入的行数 i

i=application.Worksheetfunction.Countif_ (sheet1. Range ("a1: a1000"), "a")

  • 插入行

sheet1. Range ("a100: a"&100 i-1). Entirerow. Insert

3、通过筛选法插入不重复值

Sub text

  • 确定需插入不重复值个数      i=application.Worksheetfunction.Countif_ (sheet1. Range ("a1: a1000"), "a")
  • 插入行

sheet2.Range ("a100: a"&100 i-1). Entirerow. Insert

  • 筛选

Sheet1.Range("a1").CurrentRegion.

AutoFilter field:=13, Criteria1:="a"

  • 复制

Sheet1.Range("a2:l" & Sheet1.Range("a1").End(xlDown).Row).

Copy Sheet2.Range("a100")

End sub

赞 (0)

相关推荐