我想导出一些数据,以便可以在excel中对其进行可视化,但是我在标题中遇到了麻烦。我希望单元格中有数字(2,11:end),而不是整个数组。
Sub countStringsInRangeBis()
Dim sh As Worksheet, rng As Range, TotCount As Long, cel As Range, strSearch As Variant
strSearch = Split("Dog,Cat", ",") 'or Array("Dog", "Cat")
Set sh = ActiveSheet ' use here your sheet
Set rng = sh.Range("C8:D8") 'use here whatever range you need
For Each cel In rng
TotCount = TotCount + CountStringArr(cel.Value, strSearch)
Next
Debug.Print TotCount
End Sub
答案 0 :(得分:0)
发现问题:
-一个“;”不需要
-但必须进行细胞转化
results(2,11:end)=num2cell(reshape(Num.rand_rot.',1,[]));
如果每一列都有一个唯一的变量名,也可以将其写入csv:
T = cell2table(results(2:end,:),'VariableNames',results(1,:));
writetable(T,'myDataFile.csv');
或者我只是将表保留为矩阵而不是单元格数组
results = zeros(Num.Mols+1, Num.rand_rot2*3+10);
results(1,11:end) = reshape(Num.rand_rot.', 1, []);
csvwrite(['results/results.csv'], results);