arrays - Excel/VBA 行延续过多

Question

我在 excel/vba 中有大量列标题当我超过 24 行时，它说太多行延续。我确实需要其余的列标题，因为代码必须查找我需要的每个列标题。有什么建议吗？

myHeaders = Array(Array("Account_ID", "Account_ID"), _
Array("Claim_ID", "Claim_ID"), _
Array("Account_Name", "Account_Name"), _
Array("Claim_Type", "Claim_Type"), _
Array("Coverage", "Coverage"), _
Array("Claim_Level", "Claim_Level"), _
Array("Claim_Count", "Claim_Count"), _
Array("File_Date", "File_Date"), _
Array("File_Year", "File_Year"), _
Array("Resolution_Date", "Resolution_Date"), _
Array("Resolution_Year", "Resolution_Year"), _
Array("Claim_Status", "Claim_Status"), _
Array("Indemnity_Paid", "Indemnity_Paid"), _
Array("Disease_Category", "Disease_Category"), _
Array("State_Filed", "State_Filed"), _
Array("First_Exposure_Date", "First_Exposure_Date"), _
Array("Last_Exposure_Date", "Last_Exposure_Date"), _
Array("Claimant_Employee", "Claimant_Employee"), _
Array("Next", "Next"))

Answer 1

弹出 Clippy

• 看起来您需要一个 Scripting.Dictionary。您想引用Microsoft Scripting Runtime库吗？

这样你就可以将其放在任意多的行上，并保持可读性，而无需任何行延续:

Dim headings As New Scripting.Dictionary
With headings
    .Add "Account_ID", "Account_ID"
    .Add "Claim_ID", "Claim_ID"
    .Add "Account_Name", "Account_Name"
    '...
    '...
    '...
    .Add "Next", "Next"
End With

然后你可以迭代Keys和Values；请注意，键 必须是唯一的，但如果您的列标题是实际的表标题，那么 Excel 已经强制执行了它们的唯一性。

也就是说，我不确定我理解为什么你正在做你正在做的事情。如果您的代码按预期工作，我建议您将其移交给 Code Review进行调整。我的意思是，整个过程正在消耗这个数组。我确信有一种更好的方法来做到这一点。