循环中的循环vba

我正在尝试创建一个电子表格，可以为每个股票执行BDH bloomberg代码，在每个股票中，我希望它通过所有标准，如“PX_Last”，VOL_90D，PX_BID等

基本上，我想要的理想输出是：

例如：

等等

下面是我最近为电子表格创建的代码

如果您对我的代码有任何见解，我将不胜感激

For x = 1 To i
   If x = 1 Then
    equity = Worksheets(1).Cells(x + 2, 2)
    Worksheets(2).Cells(2, 2).Value = equity
        For y = 1 To j
            If y = 1 Then
                reutersticker = Worksheets(1).Cells(y + 2, 1)
                Worksheets(2).Cells(1, 2).Value = reutersticker   
                    For Z = 1 To k
                        If Z = 1 Then
                            LastPrice = Worksheets(1).Cells(Z + 1, 8)
                            Worksheets(2).Cells(3, 1).FormulaR1C1 = "=BDH(""" & equity & """," & LastPrice & ",""" & StartDate & """,""" & EndDate & """," & Weekdays & "," & Fill & ")"    
                        ElseIf Z > 1 Then
                            LastPrice = Worksheets(1).Cells(Z + 1, 8)
                            Worksheets(2).Cells(3, 1).Offset(, (2 * Z) - 2).FormulaR1C1 = "=BDH(""" & equity & """," & LastPrice & ",""" & StartDate & """,""" & EndDate & """," & Weekdays & "," & Fill & ")"
                        End If                      
                    Next Z                      
            ElseIf y > 1 Then             
                reutersticker = Worksheets(1).Cells(y + 2, 1)
                Worksheets(2).Cells(1, 2).Offset(, (4 * y) - 2).Value = reutersticker
            End If          
         Next y          
    ElseIf x > 1 Then    
       equity = Worksheets(1).Cells(x + 2, 2)        
       Worksheets(2).Cells(2, 2).Offset(, (8 * x) - 2).Value = equity
    End If 
  Next x  
End Sub

---

你对代码有什么问题吗？或者只是想提高效率？你对代码有什么问题吗？或者只是想提高效率？

For x = 1 To i
   If x = 1 Then
    equity = Worksheets(1).Cells(x + 2, 2)
    Worksheets(2).Cells(2, 2).Value = equity
        For y = 1 To j
            If y = 1 Then
                reutersticker = Worksheets(1).Cells(y + 2, 1)
                Worksheets(2).Cells(1, 2).Value = reutersticker   
                    For Z = 1 To k
                        If Z = 1 Then
                            LastPrice = Worksheets(1).Cells(Z + 1, 8)
                            Worksheets(2).Cells(3, 1).FormulaR1C1 = "=BDH(""" & equity & """," & LastPrice & ",""" & StartDate & """,""" & EndDate & """," & Weekdays & "," & Fill & ")"    
                        ElseIf Z > 1 Then
                            LastPrice = Worksheets(1).Cells(Z + 1, 8)
                            Worksheets(2).Cells(3, 1).Offset(, (2 * Z) - 2).FormulaR1C1 = "=BDH(""" & equity & """," & LastPrice & ",""" & StartDate & """,""" & EndDate & """," & Weekdays & "," & Fill & ")"
                        End If                      
                    Next Z                      
            ElseIf y > 1 Then             
                reutersticker = Worksheets(1).Cells(y + 2, 1)
                Worksheets(2).Cells(1, 2).Offset(, (4 * y) - 2).Value = reutersticker
            End If          
         Next y          
    ElseIf x > 1 Then    
       equity = Worksheets(1).Cells(x + 2, 2)        
       Worksheets(2).Cells(2, 2).Offset(, (8 * x) - 2).Value = equity
    End If 
  Next x  
End Sub