宏还有字数限制？？？？？

糖糖99233

Sub chicun()
  'chicun

   Range("j2:j652").Formula = "=IF(LEFT(G2,2)="70",IFS(F2="单开门",IF(AND(H2>0,H2<=860),860)+IF(H2>860,960),F2="对开门",IF(AND(H2>0,H2<=1200),1180)+IF(AND(H2>1200,H2<=1400),1380)+IF(AND(H2>1400,H2<=1500),1480)+IF(AND(H2>1500,H2<=1800),1780)+IF(H2>1800,1980),F2="子母门",IF(AND(H2>0,H2<=1200),1180)+IF(AND(H2>1200,H2<=1400),1380)+IF(AND(H2>1400,H2<=1500),1480)+IF(AND(H2>1500,H2<=1800),1780)+IF(H2>1800,1980)),IFS(F2="单开门",IF(AND(H2>0,H2<=860),860)+IF(H2>860,960),F2="对开门",IF(AND(H2>0,H2<=1200),1200)+IF(AND(H2>1200,H2<=1400),1400)+IF(AND(H2>1400,H2<=1500),1500)+IF(AND(H2>1500,H2<=1600),1600)+IF(AND(H2>1600,H2<=1700),1700)+IF(AND(H2>1700,H2<=1800),1800)+IF(H2>1800,2000),F2="子母门",IF(AND(H2>0,H2<=1200),1200)+IF(AND(H2>1200,H2<=1400),1400)+IF(AND(H2>1400,H2<=1500),1500)+IF(AND(H2>1500,H2<=1600),1600)+IF(AND(H2>1600,H2<=1700),1700)+IF(AND(H2>1700,H2<=1800),1800)+IF(H2>1800,2000),F2="四开门",IF(AND(H2>0,H2<=2000),1990)+IF(AND(H2>2000,H2<=2200),2190)+IF(AND(H2>2200,H2<=2400),2390)+IF(AND(H2>2400,H2<=2500),2490)+IF(AND(H2>2500,H2<=2600),2590)+I
F(AND(H2>2600,H2<=2700),2690)+IF(AND(H2>2700,H2<=2800),2790)+IF(H2>2800,2990),F2="四开子母门",IF(AND(H2>0,H2<=2000),1990)+IF(AND(H2>2000,H2<=2200),2190)+IF(AND(H2>2200,H2<=2400),2390)+IF(AND(H2>2400,H2<=2500),2490)+IF(AND(H2>2500,H2<=2600),2590)+IF(AND(H2>2600,H2<=2700),2690)+IF(AND(H2>2700,H2<=2800),2790)+IF(H2>2800,2990)))"
    Selection.AutoFill Destination:=Range("H2:H652"), Type:=xlFillDefault
  End Sub

看见星光

换行一下~                        

jiminyanyan

用了VBA,就不要这么长的公式了把。。。

lsc900707

先学点基础知识，不要这样霸王硬上弓好不好。

ye8974

这个VBA很强势。强行植入公式

我是来讨说法的

用vba了，还用这么又臭又长的公式，也是没谁了

糖糖99233

我是来讨说法的 发表于 2018-7-17 09:00
用vba了，还用这么又臭又长的公式，也是没谁了

关键是不会用vba

糖糖99233

lsc900707 发表于 2018-7-16 20:50
先学点基础知识，不要这样霸王硬上弓好不好。

学了基础就不叫霸王硬上弓了

糖糖99233

lsc900707 发表于 2018-7-16 20:50
先学点基础知识，不要这样霸王硬上弓好不好。

求大神指教

糖糖99233

jiminyanyan 发表于 2018-7-16 20:39
用了VBA,就不要这么长的公式了把。。。

请大神指教