currentregion（currentregion.offset）

#Excel VBA经典代码应用大全#

求数据透视表的一列对应数据的每列之和！

Sub test()

Dim arr, x&, y&, d As New Dictionary, arr1()

arr = Range("a1").CurrentRegion

For x = 2 To UBound(arr)

If d.Exists(arr(x, 2)) Then

arr1(3, d(arr(x, 2))) = arr1(3, d(arr(x, 2))) + arr(x, 4)

arr1(4, d(arr(x, 2))) = arr1(4, d(arr(x, 2))) + arr(x, 6)

Else

y = y + 1

ReDim Preserve arr1(1 To 4, 1 To y)

d(arr(x, 2)) = y

arr1(1, y) = arr(x, 1)

arr1(2, y) = arr(x, 2)

arr1(3, y) = arr(x, 4)

arr1(4, y) = arr(x, 6)

End If

Next

Range("i2").Resize(d.Count, 4) = ""

Range("i2").Resize(d.Count, 4) = Application.Transpose(arr1)

End Sub

美媒：美英澳宣布成立新军事联盟”印太安全联盟” 迅速协助澳大利亚发展核潜艇

美联社华盛顿9月15日电:美国总统乔·拜登周三宣布，美国正在与英国和澳大利亚建立一个新的印太安全联盟，该联盟将允许更多的国防能力共享，包括帮助澳大利亚装备核动力潜艇。这一举动可能加深美中关系中日益扩大的鸿沟。

报道说，拜登、英国首相鲍里斯·约翰逊(Boris Johnson)和澳大利亚总理斯科特·莫里森(Scott Morrison)几乎一起出现，详细介绍了新的联盟，该联盟将被称为AUKUS(发音为AWK us)。三国宣布，”他们将迅速将注意力转向为澳大利亚开发核动力潜艇”(they would quickly turn their attention to developing nuclear-powered submarines for Australia)。

拜登说：“我们都认识到确保印度洋-太平洋地区长期和平与稳定的必要性。”他说，”新联盟”反映了欧洲主要伙伴在印度洋-太平洋地区发挥作用的更广泛趋势。“我们需要能够解决该地区当前的战略环境及其可能的演变”(“We need to be able to address both the current strategic environment in the region and how it may evolve.”)。

报道说，新的安全联盟很可能被视为中国的挑衅举动。拜登在上任初期试图将美国外交政策的重点重新放在太平洋地区，中国一再抨击拜登。

报道称，在宣布这一消息之前，美国一位政府高级官员试图淡化这种想法，即”该联盟是为了在该地区对中国起到威慑作用”。这位不愿透露姓名的官员表示，成立联盟”并非针对任何一个国家，而是为了维持三国在印度洋-太平洋地区的接触和威慑”。

约翰逊说，该联盟”将使三个讲英语的海上民主国家加强联系，并将注意力集中在世界日益复杂的地区”。他说：“我们将有一个新的机会来巩固英国在科学技术前沿的地位，加强我们的国家专长，也许最重要的是，英国、澳大利亚和美国将更紧密地结合在一起。”

报道说，三国同意在人工智能、网络和水下防御能力等领域共享信息。

但支持澳大利亚购买核动力潜艇的计划，肯定会引起北京的注意。迄今为止，美国与之共享核推进技术的唯一国家是英国。莫里森表示，澳大利亚不寻求发展核武器计划，信息共享将仅限于帮助其发展潜艇舰队。

澳大利亚总理表示，核动力潜艇的计划将在未来18个月内制定，这些潜艇将在澳大利亚阿德莱德建造。

澳大利亚曾在2016年宣布，法国DCNS公司击败日本和德国的投标人，在澳大利亚有史以来最大的国防合同中建造下一代潜艇。目前尚不清楚新联盟对与法国国防承包商的交易意味着什么。

这篇报道的标题是《Biden announces Indo-Pacific alliance with UK, Australia》(拜登宣布与英国、澳大利亚结成印太联盟)。