我试图将我的工作表保存为使用vba的pdf文件。工作表比A4页宽，并包含几个形状（从一边到另一边）。我希望工作表能够放在一个A4页面上，所以它应该按照屏幕上看到的那样进行重新调整。我正在使用以下代码： Sub Print_PDF()
Dim sFilename As String
Worksheets.Add.Name = "Helpsheet"
sFilename = "G:\anyt
我有一个JSON输出，我想在Excel中获得。 我所试图做的是配合重量列标题。 我可以得到这个输出使用一些循环。 我想要得到的是所有的权重作为第一列标题，如果它有值粘贴在其他NaN。 所需的输出： page = requests.get(mainurl)
data = json.loads(page.text)
for i in data['categories']:
for j
我有一个主子，使得使用一个Client类：与100 000Clients创建一个数组并循环阵列之上100次，每次设置不同的随机数到每个Client。 Sub start()
Application.ScreenUpdating = False
Dim j As Long
Dim clientsColl() As Client
ReDim clientsC
我是VBA的新手。 Endstate - 在一个范围内搜索并计数用户指定的填充颜色计数合并单元格（我知道，合并遗址所有内容）的唯一单元格值为一个整体单元格。 我已经编译了下面的代码，但它不能正常工作，任何帮助将不胜感激！ Function CountUniqueColorBlocks(SearchRange As Range, ColorRange As Range) As Long
Dim c