求助VBA写法

13602822168

求助，这个公式=IF($B12<>"",CONCATENATE(K6,K7,K8,K9,K10,K11,K12),"")用VBA应该怎么写？在L12的位置显示出来，
          在L13的位置是=IF($B13<>"",CONCATENATE(K7,K8,K9,K10,K11,K12,K13,),""),如此类推。
   总共有126列

      VBA该怎么写，谢谢！！！

limonet

等我构思一下你表格的架构。

边缘码农

上附件，猜来猜去的，容易出错

ykcbf1100

VBA，附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.6.28
   
2.     r = Cells(Rows.Count, "g").End(3).Row
   
3.     For i = 5 To r
   
4.         st = ""
   
5.         For x = i - 4 To i
   
6.             st = st & Cells(x, "g")
   
7.         Next
   
8.         Cells(i, "k") = st
   
9.     Next
   
10. End Sub
    

复制代码

跨越时空

每列始终从上往下串联5个单元格数字合并在一起，向下拓展？

13602822168

跨越时空 发表于 2024-6-28 15:08
每列始终从上往下串联5个单元格数字合并在一起，向下拓展？

对，是这样的，数据有126行，。

13602822168

ykcbf1100 发表于 2024-6-28 15:06
VBA，附件供参考。。。

谢谢！没错，数据有126列，请问如何扩展126列，在哪里修改。谢谢！

ykcbf1100

13602822168 发表于 2024-6-28 15:17
谢谢！没错，数据有126列，请问如何扩展126列，在哪里修改。谢谢！

你上传附件吧，加几列数据，主要是看结果放哪个位置。

13602822168

ykcbf1100 发表于 2024-6-28 15:26
你上传附件吧，加几列数据，主要是看结果放哪个位置。

已重新上传了。谢谢！！