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