求助VBA添加新Sheet单元格内填充用IF语句判断怎么实现，求教！~~~

Troughperiod

求助添加新Sheet后单元格内怎么用IF语句进行判断添加填充，代码如下，附件为例子，感谢大佬们。
求助-添加SHEET页后用IF语句拍判断填充.rar (21.8 KB, 下载次数: 0)

2023-6-1 17:57 上传

点击文件名下载附件

1. Sub 原始数据()
   
2. 
   
3. Sheets("原始数据").Select
   
4. Sheets.Add.Name = "添加后数据"
   
5. 
   
6. Sheets("原始数据").Select
   
7.     Dim arr(), brr(), Myrow As Long, i As Integer
   
8.     Myrow = Cells(Rows.Count, 2).End(xlUp).Row
   
9.     ReDim arr(1 To Myrow, 1 To 28)
   
10. 
    
11.     For x = 1 To Myrow
    
12. arr(x, 1) = Cells(x, 1)
    
13. arr(x, 2) = Cells(x, 3)   '这个地方想用IF语句判断一下表头是什么后添加，比如是 基于频率优先级的异频切换A2 RSRP门限    就添加    FreqPriInterFreqHoA2ThdRsrp，此处需要多加几个判断，基于频率优先级的异频切换A1 RSRP门限 就添加   FreqPriInterFreqHoA2ThdRsrq 这样多加几个，麻烦大神帮看一下，帮弄一下我自己好修改'
    
14. arr(x, 3) = Cells(x, 3)    '这个地方想用IF语句判断一下表头是什么后添加，比如是 基于频率优先级的异频切换A2 RSRP门限    就添加    FreqPriInterFreqHoA2ThdRsrp，此处需要多加几个判断，基于频率优先级的异频切换A1 RSRP门限 就添加   FreqPriInterFreqHoA2ThdRsrq 这样多加几个，麻烦大神帮看一下，帮弄一下我自己好修改'
    
15. arr(x, 4) = Cells(x, 10)
    
16. arr(x, 5) = Cells(x, 11)
    
17. arr(x, 6) = Cells(x, 12)
    
18. arr(x, 7) = Cells(x, 3)     '这个地方想用IF语句判断一下表头是什么后添加，比如是 基于频率优先级的异频切换A2 RSRP门限    就添加    FreqPriInterFreqHoA2ThdRsrp，此处需要多加几个判断，基于频率优先级的异频切换A1 RSRP门限 就添加   FreqPriInterFreqHoA2ThdRsrq 这样多加几个，麻烦大神帮看一下，帮弄一下我自己好修改'
    
19. arr(x, 8) = Cells(x, 5)
    
20. 
    
21. Next
    
22. 
    
23. 
    
24.     Sheets("添加后数据").[a1].Resize(Myrow, 15) = arr
    
25. 
    
26. End Sub
    
27. 
    

复制代码

Troughperiod

求助大佬，勿沉勿沉。

Troughperiod

应该是用IFS函数比较好一些