我怎么能循环使用Excel VBA

我有一个4列的表这是目前设置有以下的列日到这个SQL表：我怎么能循环使用Excel VBA

保险人/承销商，代理，日， Budgeted_Amount，

承保人/保险商将具有相同的保险公司的12个条目，但是它们将被分配到一个不同的月份和具有从78行运行不同的预算量

承保人/承销，代理列和预算量到行有一个入口urer和代理，但随后也有对预算金额

在行77也有12个月的一年12个月列，我需要的是某种形式的循环，将会把日在相关入口

这是我当前的代码，这是填充保险公司，代理人和几个月 - 它通过重复的行范围11次，得到整年值得条目做到这一点，但日期无法显示

STARTCOLUMN = 26，

MaxColumn = 37

For CurrentColumn = StartColumn To MaxColumn 

StartRow = 78 
EndRow = 375 
For CurrentRow = StartRow To EndRow 



    Insurer_Underwriter = Sheet8.Cells(CurrentRow, 2) 
    Agent = Sheet8.Cells(CurrentRow, 3) 
    Day = Sheet8.Cells(CurrentRow) 
    Day = Format(Day, "dd-MM-YYYY") 
    Budgeted_Amount = Sheet8.Cells(CurrentRow, CurrentColumn + 10) 





    sSQL = "INSERT INTO [C3 Forecast].Budget_Data_Dan VALUES ('" & Insurer_Underwriter & _ 
    "','" & Agent & "','" & Day & "','" & Budgeted_Amount & "')" 
    Cn.Execute sSQL

请可能有人指出在何处放置循环拿起日期上排77，列36至47

感谢丹

来源

2016-07-26 Dan Tracey

这是得到的答复是：

Day = Sheet8.Cells(CurrentColumn + 10)

谢谢，丹

来源

2016-07-26 10:24:58

我怎么能循环使用Excel VBA

回答

相关问题