Question

我根据工作表的列标题填充了一个字典。一些标题有换行符。有没有办法修改我的代码，我可以查询这些值的字典？

我尝试在值之间插入“vbnewline”，但这是不成功的

Sheets(UnPref).Range("A" & y).Value = Sheets("New Item Entry").Cells(z, hedDict("REQUESTOR")).Value
Sheets(UnPref).Range("B" & y).Value = Sheets("New Item Entry").Cells(z, hedDict("ORG")).Value
Sheets(UnPref).Range("C" & y).Value = Sheets("New Item Entry").Cells(z, hedDict("SHIP TO LOCATION")).Value
Sheets(UnPref).Range("D" & y).Value = Sheets("New Item Entry").Cells(z, hedDict("MRI NUMBER")).Value
Sheets(UnPref).Range("E" & y).Value = Sheets("New Item Entry").Cells(z, hedDict("ITEM IDENTIFIER" & vbNewLine & "USE UPPER CASE" & vbNewLine & "MANDATORY")).Value

Answer 1

vbNewLine是Chr(13) & Chr(10)。即vbCr & vbLf，而单元格中的换行符仅为Chr(10)，即vbLf。

从列标题构建字典时，用空格替换vbLf（这通常会更有效;您可以轻松地将元素称为例如{{1} }）：

"ITEM IDENTIFIER MANDATORY"

或者：用hedDict(Replace(theColumnHeader, vbLf, " ", Compare:=VbCompareMethod.vbBinaryCompare)) = theValue替换代码示例中的vbNewLine。

查询字典键哪里有换行符？

1 个答案: